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B01 



SECTION DICTIONARY 



NUMBER 



NAME 



MAXIMUM ORIGIN TYP ADDRESS-MODIFICATION 



01 


CTAPM 


0000073 


c 


02 


TAPEDGN 


0002422 


C 


03 


CPATCH 


0000425 


C 


04 


CPATCH1 


0000000 


c 


OS 


CPATCH2 


0000000 


C 


06 


CPATCH3 


0000167 


C 


07 


CPATCH? 


0000000 


c 


08 


TFAPCH2 


0001063 


C 


09 


TPATCH 


0000000 


c 



COMMON TAPE MAINTENANCE 
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A1 



C01 



0127526 
0127526 
0127526 



VERSION W77D OF SWAP; VERSION 



01 
02 
03 
04 
05 
06 
07 
08 
09 



OF EPL 



DBNAM N033E3I3. OFF. DATABASE 

RELNAM N03ESS 

GETLIB LIBRARY, MEMBER*MOPTBL 

6ETLIB LIBRARY, MEMBER=SYSMAC 

GETLIB LIBRARY,MEMBER=SYSSYM 

GETLIB LIBRARY, MEMBER=PATCH2 

FIRSTOPTSS 

VERSION 3ACC, FIELD, ESS2E 

PATCHINIT 



9:34:51 2/07/81 **** 
CTAPM W77D 



10 N033E3I3.0FF.0PMS(0> DECK 

11 DSQUAL N033E3I3 

12 LISTING N,CRUNCH=Y,SYSOUT=N 

13 HttttHtttttHtKUHHttttHittt 

14 tttt 

15 tttt UNIX ID = N03PAG 

16 Hit 

17 uunttttttuttttiittttttitttii 

1 8 HtitltltltttttltitlttttttlttttlttttUtlttllttlHtltttHtttttltHtttttHltlHtUttttHit 

19 tttttt 

20 ttttttlt pid date time rel 

21 tttttt 

22 ttttttlt ctapm 1/24/81 18:19:42 7.1.1.1 

23 tttttt 

24 tltttttttttttttttttttttttttttttttitlitttltHltltltttttttttttttttttlitlttittlttttKtHItt 

25 NAME CTAPH 



0127526 
0127621 



29 tttt The following 1s a 11st of the valid csects for program CTAPM 

31 CTAPM CSECT 

32 TAPEDGN CSECT 



0111432 
0112562 
0114107 
0115073 
0121236 

0116774 

0600000 



35 Hit The following csects are necessary for patching 

37 CPATCH CSECT 

38 CPATCH1 CSECT 

39 CPATCH2 CSECT 

40 CPATCH3 CSECT 

41 CPATCH7 CSECT 

43 TFAPCH2 CSECT 
45 TPATCH CSECT 
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0127526 



P01 



9:34:51 2/07/81 **** 
CTAPM W77D 



01 OREF ON 

02 CTAPM CSECT 

03 U This data set was modified by QED on P03/30/77 
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£01 



9:34:51 2/07/81 **** 
CTAPM W77D 



01 


GETLIB 


MEMBER=GPMAC 


02 


GETLIB 


MEMBER=BSAIMAC 


03 


GETLIB 


MEMBER=CCSYM 


04 


GETLIB 


MEMBER*CTVTAB 


05 


GETLIB 


MEMBER=TAPMAC 


06 


GETLIB 


MEMBER»=TAPSYM 


07 


GETLIB 


MEMBER=TTYMAC 


08 


GETLIB 


MEMBER=TTYSYM 
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TDC DIAGNOSTIC PROGRAM. 



FQ1 



01 


TTYTBL 


EXTERN 


AKBT 


02 


TTrTBL 


EXTERN 


RPT 


03 


TTrTBL 


EXTERN 


STEP 


04 


TTYTBL 


EXTERN 


UCL 


05 


TTYTBL 


EXTERN 


TTY NG 


06 


TTYTBL 


EXTERN 


TTY RL 


or 


TTYTBL 


EXTERN 


TTY_IP 



11 TTYAPP EXTERN MFAD 



9:34:51 2/07/81 **** 
CTAPM M770 



15 BLMMA EXTERN 

16 BLMMA EXTERN 



DGNTAPE 
TEMPINH 



Hflnterfaee to CMMON TEMPINH, for real t1»e 
break. 



21 CSYSUB EXTERN 

22 CSYSUB EXTERN 

23 CSYSUB EXTEKN 

24 CSYSUB EXTERN 



CLR WHDS 
SENDMIO 
SENDIO 
ST2 11 



28 CBLM EXTERN ACTMSF 

29 CBLM EXTERN MSFREt 

30 CBLM EXTERN MSFABT 

31 CBLM EXTERN WAIT 



35 LAYOUT EXTERN TTY_MFA 



39 CTSO EXTERN 

40 CTSD EXTERN 

41 LAYOUT EXTERN 

42 CTSO EXTERN 

43 CTSD EXTERN 

44 CTSD EXTERN 

45 CTSD EXTERN 



TDCO 

TCBADR 

I OBUF 

TUSTAT 

PAGSCR 

MSFPROG 

YEARS 
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£01 



9:34:51 2/07/81 **** 
CTAPM W77D 



01 


GETLIB 


MEMBER=GPMAC 


02 


GETLIB 


MEMBER=BSAIMAC 


03 


GETLIB 


HEMBER=CCSYM 


04 


GETLIB 


MEMBER«CTVTAB 


05 


GETLIB 


MEMBER"TAPMAC 


06 


GETLIB 


MEM8ER=TAPSYM 


07 


GETLIB 


MEMBER=TTYMAC 


08 


GETLIB 


MEMBER=TTYSYM 
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_F01_ 



TDC 0IA6N0STIC PROGRAM. 



COMMON TAPE MAINTENANCE 
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9:34:51 2/07/81 **** 
CTAPM W77D 



01 


TTYTBL 


EXTERN 


AXBT 


02 


TTYTBL 


EXTERN 


RPT 


03 


TTYTBL 


EXTERN 


STEP 


04 


TTYTBL 


EXTERN 


UCL 


05 


TTYTBL 


EXTERN 


TTY NG 


06 


TTYTBL 


EXTERN 


TTY RL 


07 


TTYTBL 


EXTERN 


TTY IP 



11 TTYAPP EXTERN MFAO 



15 BLMMA EXTERN 

16 BLMMA EXTERN 



21 CSYSUB EXTERN 

22 CSYSUB EXTERN 

23 CSYSUB EXTERN 

24 CSYSUB EXTERN 



28 CBLM EXTERN 

29 CBLM EXTERN 

30 CBLM EXTERN 

31 CBLM EXTERN 



DGNTAPE 
TEMPINH 



CLR WHDS 
SENDMIO 
SENDIO 
ST211 



ACTMSF 
MSFRE6 
MSFABT 
WAIT 



35 LAYOUT EXTERN TTY_MFA 



39 CTSD EXTERN TOCO 

40 CTSD EXTERN TCBAOR 

41 LAYOUT EXTERN I OBUF 

42 CTSD EXTERN TUSTAT 

43 CTSD EXTERN PAGSCR 

44 CTSD EXTERN MSFPROG 

45 CTSD EXTERN YEARS 



^Interface to CMMON TEMPINH, for real time 
break. 



SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET 
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TDC DIAGNOSTIC PROGRAM. 



601 



01 TOATA EXTERN TAPETBL 



9:34:51 2/07/81 **** 
CTAPM W77D 



05 CTAPH 

06 CTAPH 

07 CTAPH 

08 CTAPH 

09 CTAPH 



EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 



DGNRMV 

OIAGST 

INITTAPE 

REQSTP 

POSST 



13 MASACS EXTERN BLKMAX 

14 MASACS EXTERN BUFLEN 

15 MASACS EXTERN DIRLOC 

16 MASACS EXTERN REDKON 

17 MASACS EXTERN DIRTRK 
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01 



A02 



PUBLIC TAPEOGN 



9:34:51 2/07/B1 **** 
CTAPM W77D 
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TDC DIAGNOSTIC PROGRAM. 










9:34:51 


2/07/81 **** 












CTAPM W77D 




01 


MACRO 








SEGADDI 


02 


XYZ 


SEGADDI 










03 


CHKPOINT SET 










04 


STL 1 


?7,MSFPR0G 


ODISPl 






05 


PMC 


!AVE,ON 










06 
07 


9 

PMC 1 






SEG. NUMBI 


:R=DEC (CHKPOINT). 


JestSre 








08 


MEND 












12 


MACRO 








SEGADD 


13 


XOR 


SEGADD 










H 


CHKPOINT SET CHKPOINT+1 






15 


IS(DEC(CHKP0INT)>15,LI R8,CHKP0INT)IFN0T (LN R8, CHKPOINT) 






16 


RLN 1 


»8,4 








• 


17 


IRM 


<7,R3, 0(360) #DISPLAY SEGMENT IN BITS 4-7. 






18 


STL R7,MSFPR0G 










19 


PMC 


5AVE,0N 










20 


n 






__SEG. NUMBEd 




21 


PMC RESTORE 










22 


MEND 












26 


JKOO 


TEXT 


•MTC 


68-15 MINI-RECORDER 0' 






27 


JK01 


TEXT 


•mtc 


60-15 MINI-RECORDER 1' 






26 


JK50 


TEXT 


'MTC 


68-34 JK5 SERIAL PERIPHERAL INTERFACE 


CIRCUIT' 




29 


JK51 


TEXT 


•mtc 


60-34 JK5 SERIAL PERIPHERAL INTERFACE 


CIRCUIT' 




30 JK60 


TEXT 


'MTC 


68-33 JK6 SERIAL PERIPHERAL INTERFACE 


CIRCUIT' 




31 


JK61 


TEXT 


'MTC 


60-33 JK6 SERIAL PERIPHERAL INTERFACE 


CIRCUIT' 




32 


JK70 


TEXT 


'MTC 


68-32 Ji(7 SERIAL PERIPHERAL INTERFACE 


CIRCUIT' 


. 


33 


JK71 


TEXT 


'MTC 


60-32 JK7 SERIAL PERIPHERAL INTERFACE 


CIRCUIT* 




34 


JK80 


TEXT 


'MTC 


68-17 JK8 BUS TERMINATOR CIRCUIT' 






35 


JK81 


TEXT 


'MTC 


60-17 JK8 BUS TERMINATOR CIRCUIT' 






36 


JK90 


TEXT 


•MTC 


68-16 JK9 BUS TERMINATOR CIRCUIT' 






37 


JK91 


TEXT 


•MTC 


60-16 JK9 BUS TERMINATOR CIRCUIT' 






38 


JK100 


TEXT 


'MTC 


68-31 JK10 BUFFER UNIT CIRCUIT' 






39 


JK101 


TEXT 


'MTC 


60-31 JK10 BUFFER UNIT CIRCUIT' 






40 


JK110 


TEXT 


'MTC 


68-29 JK11 BUFFER UNIT CIRCUIT* 






41 


JK111 


TEXT 


'MTC 


60-29 JK11 BUFFER UNIT CIRCUIT' 






42 


JK120 


TEXT 


'MTC 


68-28 JK12 BUFFER UNIT CIRCUIT* 






43 


JK121 


TEXT 


*MTC 


60-28 JK12 BUFFER UNIT CIRCUIT' 






44 


JK130 


TEXT 


'MTC 


68-27 JK13 BUFFER UNIT CIRCUIT' 






45 


JK131 


TEXT 


'MTC 


60-27 JK13 BUFFER UNIT CIRCUIT' 






46 


JK160 


TEXT 


'MTC 


68-22 JK16 TAPE UNIT CONTROLLER' 






47 


JK161 


TEXT 


•MTC 


60-22 JK16 TAPE UNIT CONTROLLER* 






48 


JK170 


TEXT 


'MTC 


68-21 JK17 TAPE UNIT CONTROLLER' 






49 


JK171 


TEXT 


'MTC 


60-21 JK17 TAPE UNIT CONTROLLER' 




COMMON TAPE MAINTENANCE 










PF 


-1C958-50 
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TOC DIAGNOSTIC PROGRAM. 



CQ2 



9:34:51 2/07/81 **** 
CTAPM W77D 



01 JK180 TEXT *MTC 68-20 JK18 TAPE UNIT CONTROLLER' 

02 JK181 TEXT 'MTC 60-20 JK18 TAPE UNIT CONTROLLER' 

03 JK190 TEXT 'MTC 68-19 JK19 TAPE UNIT CONTROLLER* 

04 JK191 TEXT 'MTC 60-19 JK19 TAPE UNIT CONTROLLER' 
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TDC DIAGNOSTIC PROGRAM. 



OOS0O13 
0060013 
000021 S 
0001015 
0007215 



P02 



01 # SPECIAL ORDERS TO TDC NOT ON LIBRARY. 

02 BSTFON EQU 0(50013) 

03 BFILL EQU 0(60013) 
0* TMSTOP EQU 0(215) 

05 TSCRC EQU 0(1015) 

06 TINIT EQU 0(7215) 



9:34:51 2/07/81 **** 
CTAPM W77D 



0000006 
0000013 
0000015 



10 * NUMBER OF TAPE TESTS. 

11 MAXNO EQU 6 

12 BUFDEV EQU 11 

13 TUCDEV EQU 13 
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TDC DIAGNOSTIC PROGRAM. 



_I2L 



01 TAPSTAT LAYOUT 1,FLTBLK 

02 DEVICODE ITEM 6 

03 WENBL ITEM 1 
ITEM 1 
ITEM 1 
ITEM 1 
ITEM 1 
ITEM 1 
ITEM 1 
ITEM 1 
ITEM 1 
ITEM 1 
LOENO 



9:34:51 2/07/81 **** 
CTAPM W770 



TAPSJAJ , , -— T ,- 

001 MOP T BOT T REWND T KTCE T 

-+-TT+- 



DDT 



04 TUR 

05 EOT 

06 TOR 

07 TIM 

08 DDT 

09 MTCE 

10 REWND 

11 BOT 

12 MOP 
13 

T TIM T TOR 



I — H'T W 



H I" W 



■l-Tr-l-r-f 



"T~e6T 



T 



"tDr"T5enbL"T" 
•7 1 * T 



DEVICODE 



1 

_l 
j T ? T T 1 {j- , 



23 
24 
25 
26 
27 
28 
29 



bufstat layout 
item 



l,FLTBLK 



^DEVICE CODE 



BUFJIfil 

001 FILL T BOFL 



|— TT 



'W 



Factiv' 

f-n- 



T"STUFF~T"UNST 



32 
33 
34 
35 
;QC5:-56 



PPE 

BR 

RDY 

INTOFF 

LODST 

30 UNST 

31 STUFF 
ACTIV 
BOFL 
FILL 



ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
LOEND 



TT 



Tr 



"T"LODST'TrNTOFF~T"~RDY~T~BR~" ~PPl~" 



i nvt i un i i p •• • 



TTTT 



-P.SYK 



|VK f . 



£fi|E. 



I 1 \ I "i 



45 TAPPRI 
46 

47 MSTP 

48 TPR 

49 COMD 

50 TRKL 

51 TRKH 
52 



LAYOUT 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

ITEM 

LOEND 



,FLTBLK 



n DEVICE CODE (0(15) > 
H MAINTENANCE STOP ENABLE 
It TRANSPORT READY 
n COMMAND DECODER 

* TRACK BITS 

* TRACK BITS 
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F02 



TDC DIAGNOSTIC PROGRAM. 



tapp.ri „ :QQS=-Q1_* 

OOI TRKH ' TRKL COMO 

iHI A£ P I iHH§ ft£ P l 1 H~-Tr-T £a T- e T BI£0 ? BI V--r 



9:3*s51 2/07/81 **** 
CTAPM W77D 



■T~TPR~T~RSTP~"T " " I 

f-y k i i ■ » * wtw i i a ■; 
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9:3A:S1 2/07/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPM 



PR-1C958-50 
ISSUE 06 PAGE 



11 



TDC DIAGNOSTIC PROGRAM. 



TUUI£IW- 
OOI 

I 

01 1 



:QS5 



602 



01 


TUUTCTL LAYOUT 


6 


02 


TPNO 


ITEM 


16 


03 


TSTNO 


ITEM 


16 


04 


ATOP 


ITEM 


16 


05 


CURTST 


ITEM 


16 


06 


STATSV 


ITEM 


16 


07 


INTSBR 


ITEM 


1 


08 


ERGOT 


ITEM 


1 


09 


PASS 


ITEM 


1 


10 


FAIL 


ITEM 


1 


11 




LOENO 




- 12 


If 







TPNO 



9:34:51 2/07/81 **** 
CTAPM H77D 



n INTERRUPT GENERATED 
* TEST FAILED 
#TEST PASS REPORT BIT 
#FAIL REPORT BIT 



I 



TSTNO 



02 I 



ATOP 



03 1 
I 

0*1* 
I 

051 
I 



CURTST 



STATSV 



Tfail T~pass "Tergot Tints br 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA I I I I 

T g , ? T j T y T ? T ? 1 ? T T 1 jj— 



> 15 T U I » I " 3 r •• I 10 I 
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• 


TDC DIAGNOSTIC PROGRAM. 


9:34:51 2/07/81 **** 






TIM B SECTION COMMENTS. 


CTAPM W77D 






• 


01 n TBL 

02 K SECTION 








03 ft PR CTAPM 

04 * TDC DIAGNOSTICS MAY BE RUN UNDER 7 MODES. 






0127526 


05 

06 # 1. DGN:TAPE X! 

07 It ALL TESTS ARE REQUESTED. TESTING TERMINATES AT FIRST FAILURE. 






0127526 


08 

09 # 2. DGN:TAPE X;UCL! 

10 K ALL TESTS ARE REQUESTED AND ALL FAILURES ARE REPORTED. 






0127526 


11 

12 » 3. DGN:TAPE X;RPT! 

13 H SAME AS 1 BUT SEQUENCE IS RESTARTED AT FAILURE. 






0127526 


14 

15 H 4. DGN:TAPE X,TST Y! 

16 U RUN A SPECIFIC TEST(Y) ONCE. 






0127526 


17 

18 II 5. DGN:TAPE X,TST Y;RPT! 

19 n RUN A SPECIFIC TEST REPEATEDLY. .-•-•" 






0127526 


20 

21 » 6. DGN:TAPE X;STEP! 

22 * RUN ALL TESTS UNDER STEP MODE. FIRST FAILURE STOPS SEQUENCE. 






0127526 


23 

24 U 7. DGN:TAPE X,TST Y;STEP! 








25 H RUN A SPECIFIC TEST UNDER STEP MODE. 






. 


29 H CRASTSPERSON MUST BE FAMILIAR WITH TAPE OPERATING PROCEDURES. 








34 H THERE ARE 6 DIAGNOSTIC TESTS FOR THE TDC AND MINI-RECORDER. EACH 

35 n TEST SERVES AS A BUILDING BLOCK TO THE NEXT. EACH SUBSEQUENT TEST 

36 K MAKES CERTAIN ASSUMPTIONS ABOUT THE HEALTH OF THE HARDWARE BASED 








37 If UPON ITS POSITION IN THE DIAGNOSTIC SEQUENCE. THEREFORE NO TEST 

38 If SHOULD BE RUN INDIVIDUALLY UNTIL ALL PREVIOUS TESTS ATP. NO HARM 

39 n WILL BE DONE TO THE HARDWARE IF THIS RULE IS NOT ADHERED TO BUT 

40 If ERRONEOUS ASSUMPTIONS ABOUT THE FAULTY EQUIPMENT MAY BE MADE. 

44 If THE 6 TESTS ARE 






COMMON TAPE MAINTENANCE 
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TDC DIAGNOSTIC PROGRAM. 
TLM B SECTION COMMENTS. 



0127526 



9:34:51 2/07/81 **** 
CTAPM W77D 



■03 



01 # 1. SPI INTERFACE TEST. 

03 H 2. BUFFER UNIT TEST. 

05 * 3. CARTRIDGE TAPE TRANSPORT CONTROLLER TEST. 

07 # 4. MINI-RECORDER READ TEST. 

09 ft 5. MINI-RECORDER MISCELLENOUS FUNCTION TEST. 

11 H 6. MINI-RECORDER WRITE TEST. 



15 If REPAIR PROCEEDURES 

16 » 

18 U FORMULATION OF TLM NUMBER 

19 ft 



22 n THE DIAGNOSTIC MESSAGE CONTAINS THE NUMBERS COMPRISING THE TLM 

23 It INDEX TO THE RELATED FAULTY EQUIPMENT. 

25 * DGN TAPE X Y ZZ R9 R10 R11 

27 It THE TROUBLE NUMBER IS FORMED BY CONCATENATION OF THE X, Y AND ZZ 

28 It FIELDS. EG. DGN TAPE 1 5 04 R9 R10 R11 IS TBL 1504 

29 ft III 

30 If II 

31 * I 

32 K III 

33 If TAPE NO. TEST SEGMENT NO. 



37 It LOOK UP THE TRBL NUMBER IN THE TLM AND BEGIN CIRCUIT PACK REPLACEMENT 

38 # PROCEDURE. EACH TRBL NUMBER ENTRY HAS THE EXPECTED DIAGNOSTIC OUTPUT 

39 ft MESSAGE AS PART OF THE ENTRY FOR VERIFICATION PURPOSES. 



43 

44 
45 
46 
47 
48 
49 



TDC CONFIGURATION 



THE USERS OF THE TAPE DATA CONTROLLERS (ESPECIALLY CENTRAL OFFICES) 
SHOULD STRIVE TO KEEP BOTH TDCS IN-SERVICE AT ALL TIMES (EXCEPT 
PER PROCEDURAL DIRECTIVES). IF BOTH TDCS OF A MATED PAIR ARE REMOVED 
FROM SERVICE BY A HARDWARE FAILURE, THE SYSTEM IS PLACED IN A 
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TDC DIAGNOSTIC PROGRAM. 


9:34:51 2/07/81 **** 






TLM 6 SECTION COMMENTS. 


CTAPM W77D 
01 # PRECARIOUS SITUATION. 




» ' 


• 


05 # ALL TDC MINI-RECORDERS MUST HAVE TAPE DATA CARTRIDGES INPLACE BEFORE 

06 # DIAGNOSTICS ARE ATTEMPTED. ALSO THE MATED UNIT TO THE TDC UNDER TEST 

07 » MUST BE INSERVICE. IF THE ABNORMAL SITUATION ARISES THAT BOTH MATED 

08 n TDCS ARE OUT OF SERVICE, PERFORM THE FOLLOWING PROCEDURE. 

10 # 1. RUN DIAGNOSTICS ON TDC 0. USE THE FOLLOWING MESSAGE. 








12 # DGN:TAPE 0! 




. 




15 K 2. ASSURE THAT AT LEAST THE FIRST 5 TESTS PASS. 

16 It (SEE CIRCUIT PACK REPLACEMENT PROCEEDURES TO EFFECT FIX) 








19 n 3. RESTORE TDC TO SERVICE. USE THE FOLLOWING MESSAGE. 








21 # RST:TAPE 0;UCL! 

24 U 4. RUN DIAGNOSTICS ON TDC 1 AND REPAIR FAULTY EQUIPMENT. 

27 n 5. RUN TAPE TO TAPE AUDIT USING THE FOLLOWING MESSAGES. 

29 # ALW:TAPEUTIL! 

31 # AUDIT:TAPE(0,1);DETL! 




i 

■ 


< » 


34 It 6. RESOLVE MISMATCHES IF ANY ARE DETECTED BY THE AUDIT. IT 

35 * MUST 8E DETERMINED WHICH TAPE CONTAINS THE MOST CURRENT 

36 # INFORMATION. (ESPECIALLY IN THE PATCH FILE AND TRANSLATION 

37 * FILE) 

40 # 7. PLACE THE MOST CURRENT TAPE CARTRIDGE IN TAPE UNIT 1 AND 

41 * REMOVE TAPE FROM SERVICE. 




■ 




44 # 8. RESTORE TDC 1 TO SERVICE IF REQUIRED. USE THE FOLLOWING MESSAGE. 




. 


COMMON TAPE MAINTENANCE 


PR-1C958-50 
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■ SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPM ISSUE 06 PAGE 15 










'- 



TDC DIAGNOSTIC PR06RAM. 
TLM B SECTION COMMENTS. 



01 # 



003 



RST:TAPE 1;UCL! 



9:34:51 2/07/81 **** 
CTAPM W77D 



0* n 9. DIAGNOSE TDC AND REPAIR FAULTY EQUIPMENT. BRING TDC BACK 
05 U INTO SERVICE PER TAPE RESTORAL PROCEDURE. 



09 U CIRCUIT PACK REPLACEMENT 

10 H 



13 # 1. 

14 H RUN FAILING TEST UNDER REPEAT MODE. 



16 n 



DGN:TAPE X,TST Y;RPT! 



19 # 2. 

20 # VERIFY THAT TEST STILL FAILS THEN DEPRESS PF BUTTON TO STOP TEST. 

23 If 3. 

24 » DEPRESS UNLD BUTTON. WHEN TAPE MOTION STOPS, REMOVE CARTRIDGE. 

27 (K 4. 

28 U POWER UNIT DOWN AND REPLACE NEXT ENTRY IN CIRCUIT LIST. 



31 n 5. 

32 n POWER UNIT BACK UP. 



35 M 6. 

36 # INSERT CARTRIDGE AND TYPE 

38 # INIT:TAPE! 

40 WAIT FOR THE FOLLOWING MESSAGE. 

42 K INIT TAPE COMPL 



45 #7. 

46 n DEPRESS PF BUTTON TO RESTART TEST AND WAIT FOR PASS OR FAIL 

47 n INDICATION. 



COMMON TAPE MAINTENANCE 
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JDC DIAGNOSTIC PROGRAM. 
TLM B SECTION COMMENTS. 





£03 






9:34:51 2/07/8.1 


**** 




CTAPM 


W77D 


01 


n IF TEST PASSES, TYPE 




03 


ft CLR:RPT! 




05 


ft WHEN PF LIGHT TURNS OFF, FOLLOW RESTORAL PROCEDURE. 




08 


tf IF TEST FAILS, GET NEXT CIRCUIT PACK LISTED IN TLM AND 




09 


tf REPEAT AT 2 UNTIL TEST ATPS. 




11 


If NOTE: 




12 


ft THE MINI-RECORDER IS NOT A FIELD REPAIRABLE 




13 


tf ITEM. IT SHOULD BE CHANGED OUT AS A UNIT, 




14 


ft CIRCUIT PACKS INSIDE OF IT MUST NOT BE CHANGED. 




18 


ft IF THE TEST FAILURE CHANGES DURING REPLACEMENT OF THE 




19 


ft CIRCUIT PACKS, UTILIZE THE NEW TRBL NUMBER TO CONTINUE 




20 


ft REPLACEMENT. 




21 


H TBLEND 
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F03 


TDC DIAGNOSTIC 


PROGRAM. 












9:34:51 2/07/81 **** 


DIAGNOSTIC TTY 


MESSAGE HANDLER. 










CTAPM W77D 


0127526 












01 


CTAPM 


















02 


* THIS 


IS THE 


TAPE DIAGNOSTICS TTY MESSAGE HANDLING PROGRAM SEGMENT. 














03 


It THIS 


CSECT MUST BE RESIDENT AT ALL TIMES. 


0127526 












04 




BEGIN 


() 


0127526 


01 


000000 


103000 ----- 






05 




ZR 


RO 


0127527 


01 


000001 


024220 


■- TTYTBL 




06 




TBN 


R9,S(RPT) # CHECK IF REPEAT IS REQUIRED. 


0127530 


01 


000002 


055003 


•- 0127533 




07 




BNC 


NEX 


0127531 


01 


000003 


003002 






08 




LN 


R0,2 


0127532 


01 


000004 


053013 


- 0127545 




09 




B 


SETREQ 


0127533 












10 


NEX 






0127533 


01 


000005 


124222 




11 




TBN 


R9,S(STEP> #WAS STEP MODE REQUESTED? 


0127534 


01 


000006 


055003 


- 0127537 




12 




BNC 


NEXT 


0127535 


01 


000007 


003001 






13 




LN 


R0,1 #SET UP REQUEST FOR STEP TO CBLM 


0127536 


01 


000010 


053007 


•- 0127545 




14 




B 


SETREQ 


0127537 












15 


NEXT 






0127577 


01 


000011 


114231 






16 




TZ 


R9 * CHECK FOR NO ACTION OPTION 


0127540 


01 


000012 


054005 


- 0127545 




17 




BC 


SETREQ 


0127541 


01 


000013 


024234 


■- TTYTBL 




18 




TBN 


R9,S(UCL) # HAVE ALL TESTS BEEN REQUESTED TO RUN UCL. 


0127542 


01 


000014 


055025 


- 0127567 




19 




BNC 


BADRTN 


0127543 


01 


000015 


014167 






20 




TZ 


R7 It ASSURE NO TST KEYWORD MAS INPUTTED ON UCL 
REQUEST. 


0127544 


01 


000016 


055023 


- 0127567 




22 




BNC 


BADRTN 


0127545 












23 


SETREQ 






0127545 


01 


000017 


130422 020006 




24 




LL 


R1,TAPETBL 


0127547 


01 


000021 


004037 






25 




SN 


R1,1 


0127550 


01 


000022 


005026 






26 




SR 


R1,R6 It CHECK IF TAPE IS DEFINED. 


0127551 


01 


000023 


055016 


•- 0127567 




27 




BNC 


BADRTN 


0127552 


01 


000024 


003026 






28 




LN 


R1,MAXN0 


0127553 


01 


000025 


005030 






29 




SR 


R1,R8 # CHECK IF TEST IS WITHIN RANGE. 


0127554 


01 


000026 


055013 


- 0127567 




30 




BNC 


BADRTN 


0127555 


01 


000027 


003020 






31 




ZR 


R1 


0127556 


01 


000030 








32 




TZ 


R7 


0127557 


01 


000031 


030022 


— 




33 




ICF 


R1,2 


0127560 


01 


000032 


014210 






34 




TZ 


R8 


0127561 


01 


000033 


030021 






35 




ICF 


R1,1 


0127562 


01 


000034 


014231 






36 




TZ 


R9 


0127563 


01 


000035 


030020 






37 




ICF 


R1,0 


0127564 


01 


000036 


056001 






38 




BPAX 


R1 


0127565 


01 


000037 


153007 


- 0127574 




39 




B 


CONTI 


0127566 


01 


000040 


153006 


- 0127574 




40 




B 


CONTI 


0127567 












41 


BADRTN 






0127567 












42 




RETURN 


TTY NG 


0127567 


01 


000041 


156467 


•- TTYTBL 


-001- 


43 




BTSAN 


TTY NG 


0127570 












44 




RETURN 


TTY NG 


0127570 


01 


000042 


156467 


■- TTYTBL 


-001- 


45 




BTSAN 


TTY~NG 


0127571 












46 




RETURN 


TTY NG 


0127571 


01 


000043 


156467 


■- TTYTBL 


-001- 


47 




BTSAN 


TTY NG 


0127572 












48 




RETURN 


TTY"NG 


0127572 


01 


000044 


156467 


•- TTYTBL 


-001- 


49 




BTSAN 


TTY_NG 


COMMON 


rAPE MAINTENANCE 












PR-1C958-50 


9:34: 


51 2/07/81 TRADE 


SECRET - SEE TRADE SECRET 


RESTRICTIVE NOTICE ON COVER SHEET CTAPM ISSUE 06 PAGE 18 




















" 



TDC DIAGNOSTIC PROGRAM. 
DIAGNOSTIC TTT MESSAGE HANDLER. 

0127573 01 000045 153001 012757* 

0127574 . 

0127574 01 000046 131060 043317 CTSD 
0127576 01 000050 017472 017400 

0127600 01 000052 054005 0127605 

0127601 

0127601 01 000053 037020 003165 CBLM 

0127603 01 000055 154006 0127611 

0127604 

0127604 01 000056 056466 TTYTBL 

Oi 27605 

0127605 01 000057 103043 BLMMA 

0127606 

0127606 01 000060 037020 003032 CBLM 

0127610 01 000062 155002 0127612 

0127611 

0127611 

0127611 01 000063 156466 TTYTBL 

0127612 



0127612 01 000064 135140 043102 CTSD 

0127614 01 000066 044201 

0127615 01 000067 044222 

0127616 01 000070 003240 

0127617 01 000071 044243 

0127620 

0127620 01 000072 056465 TTYTBL 



01 
02 
03 
04 
05 
06 
07 
OS 
-001- 09 
10 

12 

-001- 13 
14 
15 
16 

-001- 17 
18 
1? 
20 

-001- 21 
22 
23 
24 
25 
26 
27 
28 
29 
30 

-001- 31 



603 



B CONTI 
CONTI 

It CHECK TO SEE IF THE TCB IS IDLE, 
A CLIENT THAT 



SETALL1 



RTN_RL 



LAL 

CIRM 

BC 

CALL 

BSA 

BC 

RETURN 
BTSAN 
1 

LN 
CALL 
BSA 
BNC 



R3,TCBADR,RA0 

R3,0,10,MSK(5) 

SETALL1 

ACTMSF 

ACTMSF 

RTN_RL 

TTY RL 
TTY.RL 

R2,DGNTAPE 
MSFREQ 
MSFREQ 
OKREO 





9:34:51 


2/07/81 **** 




CTAPM 


W77D 


DIAGNOSTICS WILL NOT INTERRUPT 
SYSTEM. 




#TCB IS IDLE SET UP FOR 
# ARE ANY MSF'S ACTIVE? 


DGN. 




# CANT 
WRITE 


DO REQUEST SINCE 
INTO PAGSCR. 


THIS ROUTINE 


WILL 


H MAKE 


REQUEST FOR TAPE 


DIAGNOSTICS. 





# REQUEST WAS DENIDED. 



RETURN TTY RL 

BTSAN TTY_RL 
OKREQ 

* ALL INPUT PARAMETERS ARE CORRECT. SET UP THE DIAGNOSTIC 
(K CONTROL BLOCK WITH TEST INFORMATION. 



STAL R6, PAGSCR, RAO 

ST R8,N(TSTN0)(RA0) 

ST R9,N(AT0P)(RA0) 

ZR R10 

ST R10,N(CURTST)(RA0) 

RETURN TTY_IP 

BTSAN TTY IP 



# SET UP CONTROL FOR DIAG. (TAPE NO.) 

# STORE TEST NO. 

# STORE ACTION OPTIONS. 

H ZERO OUT CURRENT TEST NO. 



COMMON TAPE MAINTENANCE 
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A04 


TDC DIAGNOSTIC 


PROGRAM. 








9:34:51 2/07/81 **** 


DIAGNOSTIC MONITOR 








CTAPM W77D 


0127621 










01 TAPEDGN CSECT 












02 K 


START OF THE TAPE DIAGNOSTIC PROGRAM. 












03 


THIS IS THE DIAGNOSTIC TAPE MONITOR. IT IS RESPONSIBLE FOR RUNNING 












04 * 


ALL TESTS AND PRINTING OUT DIAGNOSTIC MESSAGES. TESTS WILL FLAG IF 












05 tt 


THEY HAVE PASSED OR FAILED OR NEED TO BE RUN. 












09 ft 


FIRST CHECK IF CBLM WANTS TAPE DIAGNOSTICS TO ABORT. 


0127621 


02 000000 


103200 






10 


ZR R8 


0127622 


02 000001 


024000 






11 


TBN R0,0 MS ABORT REQUESTED 


0127623 


02 000002 


054137 


0127762 




12 


BC ABORTDT 


0127624 


02 000003 


003121 






13 


LN R5,1 


0127625 










14 DOLU 












15 n 


THE TAPE SYSTEM WILL BE SECURED FOR THE DIAGNOSTICS. FIRST A 












16 n 


CHECK WILL BE MADE TO ASSURE THAT THE TAPE SYSTEM HAS NOT 












17 § 


BEEN SECURED BY ANOTHER CLIENT. 












18 


STATST IDLTST MS TCB STILL IDLE 


0127625 


02 000004 


173047 




-002- 


19 


BSAI RXEQR ft SUBROUTINE REQR IS IN PROGRAM CTAPH 


0127626 


02 000005 


002300 




-001- 


20 


VFD 5, IDLTST 4, STATST 1,1 1,0 5,0 


0127627 


02 000006 


154010 


0127637 




21 


BC CONTINU 


0127630 










22 


CALL WAIT 


012763C 


02 000007 


073025 




-001- 


23 


BSAI WKAIT tt SUBROUTINE WAIT IS IN PROGRAM CBLM 


0127631 


02 000010 


136120 127625 


0127625 




24 


BX R5,D0LU 


0127633 


02 000012 


003000 






25 


ZR RO 


0127634 


02 000013 


026003 


BLMMA 




26 


SBN RO,DGNTAPE 


0127635 










27 


CALL MSFABT (KABORT DGN DUE TO INTERFERENCE FROM TAPE USER 


0127635 


02 000014 


073050 




-001- 


28 


BSAI MXSFABT tt SUBROUTINE MSFABT IS IN PROGRAM CBLM 


0127636 










29 


RETURN 2 


0127636 


02 000015 






-001- 


30 

34 # 

35 ft 

36 It 


BTSAN 2 

ALL INDICATIONS ARE THAT THE DIAGNOSTIC SEQUENCE MAY CONTINUE. 
THIS MONITOR RUNS UNDER TWO MODES. IT WILL EITHER INITIATE A TEST 
OR REPORT THE FINDINGS OF A TEST THAT HAS JUST BEEN RUN. 


0127637 










37 

38 ft 

39 ft 

40 ft 

41 ft 


THE FIRST SETUP IS FOR THE ANTICIPATION OF RUNNING A TEST. 
THE I/O ADDRESS OF THE TESTED UNIT IS PLACED IN R9. NEXT 
THE TCB IS ZEROED TO ASSURE A CLEAN START FOR A TEST AND TO 
CLEAN IT UP FOR THE SYSTEM UPON THE COMPLETION OF A TEST. 


0127637 










42 

43 tt 

44 It 


RAO WILL BE SET UP TO THE DIAGNOSTIC CONTROL BLOCK (PAGSCR) 
RA1 WILL BE SET UP TO THE TCB. 


0127637 










45 CONTINU 


0127637 02 000016 


131402 020006 


TDATA 




46 


LAL R0,TAPETBL,RA1 


0127641 


02 000020 


031000 043102 


CTSD 




47 


LAL RO, PAGSCR, RAO 
L R2,N(TPN0)(RA0) 


0127643 


02 000022 


040040 






48 


0127644 


02 000023 


004441 






49 


AN R2,1 


COMMON TAPE MAINTENANCE 
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TDC DIAGNOSTIC PROGRAM. 
DIAGNOSTIC MONITOR 

0127645 02 000024 042622 

0127646 02 000025 031400 043317 CTSD 



0127650 

0127650 02 000027 037020 126162 CTAPH 



-001- 

-001- 



01 
02 

03 

U4 
05 
06 
07 



B04 



9:34:51 2/07/81 **** 
CTAPM W770 



LX R9,R2(RA1> 4 #SET UP 10 ADDRESS 

LAL R0,TCBADR,RA1 
CLEAN UP THE TCB. FOLLOW BY WAITING FOR THE REPACK REflUEST WHICH 
FLOWS FROM THE CALL TO INITTAPE. 



CALL 
BSA 



INITTAPE 
INITTAPE 



# ATTEMPT TO INITIALIZE THE TAPE DATA CONTROLLER UNDER TEST. 



08 TAPEDGN OH 



09 



NOTE 



0<31) n 12002 

************* THE FIRST ADDRESS OVERWRITTEN IS 000031 ********** 



0127652 02 000031 137000 111644 0111644 -001- 

-001- 
-001- 



12 CPATCH BGNP 0(212) # 12002 

13 BL XXX133 

14 NOTE CPATCH 'CSECT* 

15 NOTE ***************** PATCH AREA BEGINS AT 000212 **************** 



0111644 

0111644 03 000212 140003 

0111645 03 000213 014000 

0111646 03 000214 050400 127654 0127654 

0111650 
0111650 

0111650 03 000216 173025 

0111651 03 000217 151500 CTAPH 

0111652 03 000220 054776 0111650 

0111653 

0111653 03 000221 037000 127654 0127654 



-001- 18 XXX133 PATCHAREA 

19 L RO,N(CURTSTXRAO> 

20 TZ RO 

21 BNCL SNDINIT 

22 DEPATCH NOTE DELETE 'L' IN ABOVE LINE. 

23 REPAKWT 

24 CALL WAIT 

25 BSAI WXAIT # SUBROUTINE WAIT IS IN PROGRAM CBLM 

26 TBS N(REQSTP>(RA1),S(RE«STP) 

27 BC REPAKWT 

28 ENDP # 12002 

29 BL KXX136 

30 NOTE ************ LAST PATCH ADDRESS USED IS 000222 *************** 

31 NOTE ***** NUMBER OF PATCH WORDS USED IS 9 (DECIMAL) ******** 



-001- 



-001- 
-001- 
-001- 



0127654 

0127654 

0127654 02 000033 162727 

0127655 



-001- 34 XXX136 OWCONTINUE 

35 SNDINIT 

36 IBS N(REPK)(RA1),S(REPK) 

37 EOW # 12002 

-001- 38 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000033 ********** 



0127655 02 000034 003641 040007 
0127657 02 000036 023440 



-001- 



41 LI R10,.TNIT 

42 SMIO 

43 (TDO NOT CHECK FOR ".EP!.Y SINCE UNIT IS UNDER TEST. 

44 TAPEDGN OW 0(17) # 12002 

45 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000037 ********** 
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TDC DIAGNOSTIC PROGRAM. 

DIAGNOSTIC MONITOR 

0127660 01 

0127660 02 000037 037020 132227 0132227 -001- 02 

0127662 03 

-001- 04 



CO* 

9:34:51 2/07/81 **** 

CTAPM W77D 

CALL WAIT1S 

BSA WAIT1S 

EOW n 12002 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000040 ********** 



0127662 02 000041 161747 



10 K THE TAPE HANDLER (CTAPH) MUST BE TOLD THAT DIAGNOSTICS IS RUNNING. 

11 » SOME Of THE TAPE HANDLER BASE LEVEL FUNCTIONS MUST BE STOPPED 

12 ft IN ORDER TO AVOID I/O ORDERS SET FROM THESE FUNCTIONS FROM 

13 ft INTERFERRING WITH THE TESTED UNIT. ALSO TAPE INTERRUPT LEVEL 

14 * PROGRAMS ARE TOLD WHEN AND WHEN NOT TO SERVICE BUFFER INTERRUPTS. 

15 It THIS IS A 2 BIT INTERFACE TO THE CTAPH PROGRAM. THIS FIRST BIT IS 

16 H TO TELL CTAPH THAT BOTH THE BASE AND INTERRUPT LEVEL PROGRAMS ARE 

17 K TO REMAIN DORMANT REGARDLESS OF EXTERNAL STIMULATION RECEIVED. 

18 SBS N(DIAGBITS)(RA1),S(DIAGBITS) #FLAG TO CTAPH DIAG IP. 



0127663 02 000042 051045 

0127664 02 000043 055111 



0127775 



22 * THIS IS THE POINT WHERE THE MONITOR DIFFERENTIATES BETWEEN THE 

23 If TWO MODES IT RUNS UNDER. THE PASS-FAIL FLAGS IN ITS DIAGNOSTIC 

24 It CONTROL BLOCK ARE CHECKED. IF BOTH ARE RESET, THE INITIATION OF 

25 ft A TEST MAY BE REQUIRED. 

26 TBS N(PASS)(RAO),S<PASS> ft IS THIS A PASS REPORT 

27 BNC FAILOK 



0127665 



0127665 02 000044 062045 

0127666 02 000045 040001 

0127667 02 000046 014000 

0127670 02 000047 054027 0127717 

0127671 02 000050 003000 

0127672 02 000051 044407 

0127673 

0127673 02 000052 131420 043337 CTSD 

0127675 02 000054 040064 . 

0127676 

0127676 02 000055 140140 



A TEST HAS REPORTED A PASS INDICATOR. THE MODE UNDER WHICH THE 
DIAGNOSTICS HAVE BEEN REQUESTED WILL DETERMINE IF A PRINTOUT 
SHOULD BE GENERATED OR NOT. 



•TSTNO' ENTRY IN THE DIAGNOSTIC CONTROL BLOCK (DCB) WILL BE 
ZERO IF A SPECIFIC TEST WAS REQUESTED. A ALL ZERO ENTRY INDICATES 
ALL TESTS ARE INVOLVED IN THE DIAGNOSTIC REQUEST. 

FLAG 



31 ff 

32 * 

33 If 
34 

35 It THE 

36 ft NON 

37 # 

38 ZBS 

39 L 

40 TZ 

41 BC 

42 ZR 

43 ST 

44 ft SINGLE TEST WAS REQUESTED 

45 COMPO 

46 LAL 

47 L 

48 NOFLG 

49 L 



N(PASS)<RAO),S<PASS) ft CLEAR 
RO,NvTSTNO)(RAO) 

no 

CURRENT 

RO . 

R0,N(DIAGBITS)(RA1) 

PRINT OUT ATP MESSAGE 



ff CHECK IF ALL TESTE ARE BEING RUN. 



R1,TUSTAT,RA1 
R3,N(STATSV)(RA0> 



If SINGLE TEST PASSED. JUST RESTORE STATUS. 



R6,N(TPN0)(RA0) 
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TDC DIAGNOSTIC PROGRAM. 

DIAGNOSTIC MONITOR 

0127677 02 000056 046466 

0127700 02 000057 003421 000000 
0127702 02 000061 003441 021004 
0127704 02 000063 003461 021042 

0127706 02 000065 003561 001011 TTYTBL 



0127710 02 000067 051302 

0127711 02 000070 055003 



0127714 



0127712 02 000071 003561 000302 TTYTBL 

0127714 

0127714 

0127714 02 000073 137020 132017 0132017 

0127716 

0127716 02 000075 156465 



01 
02 

-001- 03 
04 

-001- 05 

-001- 07 

09 

-001- 10 
11 
12 
13 
14 
15 

-001- 16 
17 
18 

-001- 19 
20 

-001- 21 



D04 

9:34:51 2/07/81 **** 
CTAPM W77D 

STX R3,R6<RA1) 

TTYCTl SOURCE=MFA ■ 

LI R1,0*E(13)+0*E(12)+0*E(9)+0*E(8)+O*E(6)+O*E(4)+0*E(3)*O 

TTYFMT FMT=(WRD,WRD,DEC,WRD) 

LI R2,0lTTY0 *E<<10-7>*4> (TTYO *E<<9-7)*4> lTTY0_WRD*E<(8-7>*4) lTTYO_ 

DEC*E((7=7)*4) 
LI R3,0lTTY0 *E((10-7)*4)lTTYO *E«9-7)*4) lTTY0_*E(<8-7)*4> ITTY0_*E< 
(7-7)*4)~ 
R7,(A,T,P> 
R7,AXTP 
BRANCH IS USE BY DIAGNOSTICS RUN UNDER THE UNCONDITIONAL 
IS ACTIVE A 'COMPL' MESSAGE IS OUTPUTTED INSTEAD OF 'ATP'. 
* WAS TESTS RUN UNCONDITIONAL. 



SPELL 

LI 
tl THIS COMMON 
* MODE. IF UCL 

TBS 

BNC 

SPELL 

LI 



ATPIT 



CALL 
BSA 

RETURN 
BTSAN 



N(ATOP)(RAO),S(UCL) 
ATPIT 

R7,(C,0,M,P,L> 
R7,C*0MPL 

PUTAWAY 

PUTAMAY 

5 

5 



H USE COMPLETE MESSAGE. 



U STORE MESSAGE. SUBENTRY OF ERRM$GPO. 



0127717 

0127717 02 000076 140003 

0127720 02 000077 037040 043105 CTSD 



0127722 02 000101 003405 000006 
0127724 02 000103 055012 



0127736 



25 # AT THIS POINT IT IS KNOWN THAT ALL TESTS HAVE BEEN REQUESTED. IT 

26 n MUST BE DETERMINED IF ALL TESTS HAVE BEEN RUN BY INTERROGATING 
U THE CURRENT TEST COUNTER (CURTST). 



27 



28 


CURRENT 




29 


L 


RO,N(CURTST)(RAO) 


30 


A1S 


PAGSCR+N(CURTST) 


31 


CI 


RO,MAXNO 


32 


BNC 


BPAXTOTST 



It GET NEXT TEST TO BE RUN. 

H BUMP TEST NUMBER TO NEXT LEVEL. 

H HAVE ALL TESTS BEEN RUN. 



0127725 

0127725 02 000104 103000 

0127726 02 000105 044407 

0127727 02 000106 044003 

0127730 02 000107 051025 — 

0127731 02 000110 062025 

0127732 02 000111 055104 0130036 



36 # ALL TESTS HAVE BEEN EXECUTED. THE MODE OF EXECUTION MUST BE DETERMINED 

37 (» BEFORE OTHER ACTIONS ARE TAKEN. ALSO THE DCB HAS TO BE CLEARED AND THE 
* TAPE HANDLER RELEASED FROM DIAGNOSTIC CONTROL. 



38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



RETFAIL 



ZR 

ST 

ST 

TBS 

ZBS 

BNC 



RO 



R0,N(DIAGBITS)(RA1) #CLEAR CTAPH FLAG OF DIA6 IP. 

R0,N(CURTST)(RA0) K CLEAR OUT TEST COUNTER. SEQUENCE OVER. 

N(ERGOT)(RAO),S(ERGOT) # WAS ERROR DETECTED BY ANY TEST? 

N(ERGOT)(RAO),S (ERGOT) It CLEAR FLAG 

RESETAT 
ALL TESTS HAVE BEEN RUN AND AN ERROR WAS DETECTED. IF TEST WERE RUN 
UCL THE OUTPUT FOR THE FAILURE WAS ALREADY OUTPUTTED, JUST OUTPUT A 
COMPLETION MESSAGE. IF NOT UCL, RETURN TO MULTI-SCAN CONTROL TO PRINT 
OUT PREPARED FAILURE MESSAGE. 
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E04 


TOC DIAGNOSTIC 


PROGRAh 


. 










9:34:51 2/07/81 **** 


DIAGNOSTIC MONITOR 












CTAPM W77D 


0127733 02 


.000112 


051302 






01 




TBS 


N(ATOP)(RAO),S(UCL) H HAS TEST RUN UNCONDITIONALLY? 


0127734 02 


000113 


054737 


0127673 




02 




BC 


COMPO 


0127735 










03 




RETURN 


4 * INDICATE FAILURE TO MULTI FUNCTION CONTROL. 


0127735 02 


000114 


056464 




-001- 


04 




BTSAN 


4 












08 


ft A TEST MUST 


BE RUN. RO CONTAINS INDICATOR OF WHICH TEST IS TO BE 












09 


ft RUN. 


SET VP 


NULL STATE IN CTAPH TCB AN BRANCH TO TEST. 


0127736 










10 


BPAXTOTST 




0127736 02 


000115 


103033 






11 




LN 


R1,DIAGST 


0127737 02 


000116 


044432 






12 




ST 


R1,N(STATEWRD)(RA1) ft SET UP DIAG. NULL STATE. 


0127740 02 


000117 


040100 






13 




L 


R4,N(TPNO)(RA0) 


0127741 02 


000120 


044510 






14 




ST 


R4,N(TAPN0)(RA1) ft SET. UP TAPE UNIT BEING TESTED. 


0127742 02 


000121 


010417 






15 




RLN 


R0,1 


0127743 02 


000122 


056000 






16 




BPAX 


RO 


F01 27744 02 


000123 


137000 


130046 0130046 




17 




BL 


SPIBT 


F01 27746 02 


000125 


137000 


130225 0130225 




18 




BL 


BUFFER 


0127750 02 


000127 


137000 


130572 0130572 




19 




BL 


CONTROL 


0127752 02 


000131 


137000 


131041 0131041 




20 




BL 


C^CKREAD 


0127754 02 


000133 


137000 


131255 0131255 




21 




BL 


MISCT 


0127756 02 


000135 


103000 


■ ■ ■■■- 




22 




ZR 


RO 


0127757 02 


000136 


044412 






23 




ST 


R0,N(STATEWRD)(RA1) CCLEAR DIAG STATE IN TCB. 


0127760 02 


000137 


037000 


131537 0131537 




24 




BL 


TWRITE 












28 


ft ABORT PRINTOUT CONTROL FOR TAPE DIAGNOSTICS. 


0127762 










29 

30 


ABORTDT 
TAPEDGN OW 


0(141) ft 790117 










-001- 


31 




NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 000141 ********** 


0127762 










34 


ABORTDT 














35 


CPATCH 


BGNP 


0(417) ft 790117 


0127762 02 


000141 


137000 


112051 0112051 


-001- 
-001- 
-001- 


36 
37 
38 




BL 

NOTE 

NOTE 


XXX158 

CPATCH 'CSECT' 

***************** PATCH AREA BEGINS AT 000417 **************** 


0112051 








-001- 


41 


mist 


PATCHAREA 


0112051 










42 




CALL 


SYSCLOSE 


0112051 03 000417 


137020 


117754 0117754 


-001- 


43 




BSA 


SYSCLOSE 


0112053 03 


000421 


103541 


043102 CTSD 




44 




LI 


R6,PAGSCR 


0112055 










45 




ENDP 


ft 790117 


0112055 03 


000423 


037000 


127764 0127764 


-001- 
-001- 
-001- 


46 
47 
48 




BL 

NOTE 

NOTE 


XXX161 

************ LAST PATCH ADDRESS USED IS 000424 *************** 

***** NUMBER OF PATCH WORDS USED IS 6 (DECIMAL) ******** 


COMMON 


rAPE MAINTENANCE 
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F04 


TDC DIAGNOSTIC 


PROGRAM. 














9:34:51 2/07/81 **** 


DIAGNOSTIC MONITOR 














CTAPM W77D 


0127764 










-001- 


01 


XXX161 


OWCONTINUE 


0127764 


02 


000143 


103561 000001 


TTYTBL 




02 






LI 


R7,AXBT 


0127766 










-001- 


03 
04 






EOW 
NOTE 


* 790117 
*************** THE LAST ADDRESS OVERWRITTEN IS 000144 ********** 


0127766 












07 






PRINT 


FMT=(WRD(D,G,N),WRD<T,A,P,E),DEC,WRD,DEC> #PRINT DIAGNOSTIC ABORT 












-001- 


09 


n 


MESSAGE PROTOTYPE 












-001- 


10 


it 




mm 


DGN TAPE ddddd WRD ddddd 


0127766 


02 


000145 


073053 




-002- 


11 






BSAI 


PXMRY ft SUBROUTINE PMRY IS IN PROGRAM TTYAPP 


0127767 


02 


000146 


100200 




-002- 


12 






VFD 


1,1 2,0 1,0 3,0 1,0 1,1 1,0 2,0 1,0 3,0 


0127770 


02 


000147 


022004 




-002- 


13 






VFD 


4,TTY0 4,TTY0 DEC 4,TTY0 WRD 4,TTY0 DEC 


0127771 


02 000150 021042 




-002- 


14 






VFD 


4,TTY0" 4,TTY0 4,TTY0 4,TTY0 


0127772 


02 


000151 


010014 


TTYTBL 


-002- 


15 






VFD 


5,2 117DXGN 


0127773 


02 


000152 


000242 


TTYTBL 


-002- 
-001- 


16 
17 






VFD 
NOTE 


5, 11,TXAPE 

THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS R6,R7,R8, 


0127774 












19 






RETURN 


3 


0127774 


02 


000153 


156463 




-001- 


20 






BTSAN 


3 

. 1 


0127775 












24 


FAILOK 
















25 


1 


THE 


MONITOR 


HAS BEEN ENTERED AND THE REASON IS NOT THAT A TEST IS 














26 


It 


REPORTING A 


PASS CONDITION. CHECK HERE IS MADE FOR A FAILURE REPORT. 














27 


It 


CHECK HERE 


C 0R FAILURE REPORT FROM TEST. 


0127775 


151065 






28 






TBS 


N(FAIL)(RAO),S(FAIL) ft HAS A TEST REPORTED FAILURE. 


0127776 


0? 


000155 


054017 


0130015 




29 
30 


H 


THE 


BC 

MONITOR 


OPTLOK It YES. CHECK MODE OF OPERATION. 
NOW KNOWS THAT A NEW TEST MUST BE INITIATED. THE 














31 


H 


•TSTNO" WORD WILL BE CHECKED TO SEE IF ALL TESTS ARE REQUESTED 














32 


§ 


OR JUST A SINGLE DIAGNOSTIC. 


0127777 












33 


SEQU 






0127777 


02 


000156 


131400 043337 


CTSD 




34 






LAL 


R0,TUSTAT,RA1 lUSAVE TAPE STATUS. 


0130001 


02 


000160 


040040 






35 






L 


R2,N(TPN0)(RA0) 


0130002 


02 


000161 


042422 






36 






LX 


R1,R2(RA1) 


0130003 


02 


000162 


044024 






37 






ST 


R1,N(STATSV)(RA0) 


0130004 


02 


000163 


003000 






38 






ZR 


RO 


0130005 


02 


000164 


046402 






39 






STX 


R0,R2(RA1) 


0130006 


02 


000165 


031400 043317 


CTSD 




40 






LAL 


R0,TCBADR,RA1 


0130010 


02 


000167 


040001 






41 






L 


RO,N(TSTNO)(RAO) It GET REQUESTED TEST NUMBER. 


0130011 


02 


000170 


014000 






42 






TZ 


RO # WAS IT A SINGLE SHOT REQUEST. R0=0 
INDICATES RUN ALL OR UNCOND. 


0130012 


02 


000171 


054705 


0127717 




44 






BC 


CURRENT tt PROCESS NEXT TEST. 


0130013 


02 


000172 


004017 






45 






SN 


R0,1 K PREPARE FOR BPAX. 














46 


ft 


A SING 














47 


n 


TEST 


TRANSFER VECTOR TABLE. 


0130014 


02 


000173 


053722 


0127736 




48 






B 


BPAXTOTST 
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TDC DIAGNOSTIC PROGRAM. 
DIAGNOSTIC MONITOR 
0130015 



0130015 02 000174 131400 043337 CTSD 

0130017 02 000176 040040 

0130020 02 000177 003401 004000 

0130022 02 000201 046402 

0130023 02 000202 044004 

0130024 02 000203 031400 043317 CTSD 

0130026 02 000205 061025 

0130027 02 000206 062065 

0130030 02 000207 051302 

0130031 02 000210 055674 0127725 

0130032 02 000211 003000 

0130033 

0130033 02 000212 037021 124655 TTYAPP 
0130035 02 000214 153742 0127777 



-001- 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 



604 __ — 

9:34:51 2/07/81 **** 
CTAPM W77D 

# A TDC TEST HAS REPORTED A FAILURE. THE TDC MUST BE REMOVED FROM SERVICE. 
n NEXT A CHECK IS MADE TO DETERMINE IF THE REQUEST WAS FOR UCL MODE. 

U UNDER UCL THIS MONITOR MUST PRINTOUT THE PREPARED FAILURE MESSAGE 
U AND THEN SEQUENCE TO THE NEXT TEST. IF NO UCL WAS REQUESTED, THE 

# MULTISCAN CONTROLLER WILL OUTPUT THE MESSAGE. 

LAL R0,TUSTAT,RA1 * A TEST FAILED. MARK UNIT OOS. 

L R2,N(TPN0)(RA0) 

LI RO,M(TSTATE) 

STX R0,R2(RA1) 

ST RO,N(STATSV)(RAO) 

LAL R0,TCBADR,RA1 

SBS N(ERGOT)(RAO) / S(ERGOT) # FLAG ERROR FOUND. 

ZBS N(FAIL>(RAO),S(FAIL) # CLEAR TEST REPORT FLAG. 

TBS N(ATOP)(RAO),S<UCL> # WAS UNCONDITIONAL OPTION USED. 

BNC RETFAIL 

ZR RO 

CALL MFAD * PRINT OUT PREPARED FAILURE DIAG. 

BSA MFAD 

B SEQU # CONTINUE SEQUENCE. 



MESSAGE. 



0130036 

0130036 02 000215 131400 043337 CTSD 

0130040 02 000217 040040 

0130041 02 000220 040064 

0130042 02 000221 024073 

0130043 02 000222 055633 0127676 

0130044 02 000223 026076 

0130045 02 000224 U53631 0127676 



24 RESETAT 

25 

26 

27 

28 

29 

30 

31 



LAL R0,TUSTAT,RA1 

L R2,N(TPNO)(RA0) 

L R3,N(STATSV)(RA0) 

TBN R3,S(TSTATE) 

BNC NOFLG 

SBN R3,S(RED0N) 

B NOFLG 



» TESTS ALL PASS. MARK RESULT IN STATUS WORD 



n WAS UNIT OOS. IF SO, FLAG ATP OF DIAG. 
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A05 



TDC DIAGNOSTIC PROGRAM. 






9:34:51 2/07/81 **** 


TEST 1 SPI INTERFACE TEST 






CTAPM W77D 


0130046 




01 


SPIBT 


0000001 




02 


TEST SET 1 


01300*6 02 000225 103161 




03 


IN R7,1 H TEST NUMBER FOR PRINTOUTS. 






04 


SEGADDI 


0130047 02 000226 034560 043463 CTSO 


-001- 


05 


STL R7,HSFPR0G HIDISPLAY NUMBER ON LOW 4 BITS OF SSP. 




-001- 


06 


H SEG. NUMBER=0. 






10 


H THE SCOPE OF THE TEST INVOLVES THE SERIAL PERIPHERAL INTERFACE (SPI) 






11 


* AND THE BUS TERMINATOR. THE I/O CHANNEL TO THE TDC UNDER TEST IS 






12 


* IMPLICITLY TESTED AND SHOULD BE SUSPECT IF SEG FAILS. 


0130051 




16 


TRBL JK5,JK6,JK7 




-001- 


17 


n TBL 0100 




-001- 


18 


HI TEST 1 




-001- 


19 


#& SEGMENT 




-001- 


20 


U PR CTAPM 




-001- 


21 


H 




-001- 


22 


U EXPECTED OUTPUT MESSAGE. 




-001- 


23 


n DGN TAPE 1 00 R9 R10 R11 




-001- 


24 


n 




-001- 


25 


U MTC 68-34 JK5 SERIAL PERIPHERAL INTERFACE CIRCUIT 




-001- 


26 


U MTC 68-33 JK6 SERIAL PERIPHERAL INTERFACE CIRCUIT 




-001- 


27 


# MTC 68-32 JK7 SERIAL PERIPHERAL INTERFACE CIRCUIT 




-001- 


28 


• 




-001- 


29 


f 




. -001- 


30 


H 




-001- 


31 


*% TBL 1100 




-001- 


32 


Hi, TEST 1 




-001- 


33 


HI SEGMENT 




-001- 


34 


HI PR CTAPM 




-001- 


35 


H 




-001- 


36 


H EXPECTED OUTPUT MESSAGE. 




-001- 


37 


H DGN TAPE 1 1 00 R9 R10 R11 




-001- 


38 


H 




-002- 


39 


H MTC 60-34 JK5 SERIAL PERIPHERAL INTERFACE CIRCUIT 




-002- 


40 


H MTC 60-33 JK6 SERIAL PERIPHERAL INTERFACE CIRCUIT 




-002- 


41 


H MTC 60-32 JK7 SERIAL PERIPHERAL INTERFACE CIRCUIT 




-001- 


42 


H 




-001- 


43 


H SEGMENT DESCRIPTION. 




-001- 


44 


H 


0130051 




45 








46 


H SE6MENT DESCRIPTION 






47 


H THIS SEGMENT OF THE TEST WILL ATTEMPT TO GAIN ACCESS TO THE SPI. TO 






48 


H ISOLATE THE SPI FROM THE REMAINDER OF THE TDC, A BAD PARITY MESSAGE 






49 


# IS SENT TO THE TDC. BAD SERIAL PARITY IS HANDLED SOLELY BY THE SPI. 
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BOS 




TDC DIAGNOSTIC 


PROGRAM. 














9:34:51 2/07/81 **** 


TEST 1 SPI INTERFACE TEST 














CTAPM W77D 










01 


I 


IF EITHER THE INCORRECT RESPONSE IS SENT BACK BY THE SPI OR NO RESPONSE 










02 


# 


THIS 


SEGMENT HILL FAIL. I/O CHANNEL AND CABLING AND CONNECTORS 










03 


* 


MAY 


ALSO BE SUSPECT ALONG HTH POWER PROBLEMS. 










04 


HZ TBLEND 




• 








08 


f 


THIS 


TEST WILL CHECK OUT THE ACCESS TO THE TDC AND ASSURE A 










09 


n 


WORKING COMMUNICATION LINK TO THE INDIVIDUAL UNITS. THE BUS TERMINATOR 










10 


# 


IS UTILIZED AS THE TESTING MEDIUM. 












11 


* 


FIRST TEST INVOLVES THE SENDING OF 


BAD PARITY OUT TO THE SPI. 










12 


i 


IT SHOULD DETECT BAD SERIAL PARITY 


AND RETURN THE CORRECT ERROR 










13 


t 


RESPONSE. 




0130051 








14 






sbin n 


MUST BLOCK HARWARE RECOGNITION OF ERROR 
RESPONSE. 


0130051 02 000230 


013002 




-001- 


16 






MIS 2 




0130052 0? 000231 


105722 




-001- 


17 






DATA 35794 




0130053 








18 






MIMODE L SS S,YT,DATA=S(BHC> 


U INHIBIT HARDWARE CHECKS DURING GENERATION 


0130053 02 000232 


013001 




-001- 


19 






MIS S(BHC) 




0130054 02 000233 


105722 




-002- 


20 






VFD 8,SS_SXT 8,YTXF 




0130055 








21 






*0F BAD PARITY INTERNAL TO THE PROCESSOR. 


0130055 02 000234 


003001 






22 






LN R0,1 n 


SET VP FOR SINGLE BIT BAD PARITY. 


0130056 








23 






MIMODE 


• 


0130056 02 000235 


013400 




-001- 


24 






MI 




0130057 








25 






ZBR 




0130057 02 000236 


025712 




-001- 


26 






DATA ZBRX 


■ 


0130060 








27 






L BR,RO n 


PLACE BAD PARITY IN BR 


0130060 02 000237 


070523 




-001- 


28 






VFD 8,BRXT 8,R0XF 




0130061 








29 






LDPAR * 


GATE BAD PARITY TO MCHB 


0130061 02 000240 


025730 




-001- 


30 






DATA LDPARX 




0130062 








31 






MCHTRXMCHB 




0130062 02 000241 


026472 




-001- 


32 






DATA MCHTRXMCHBX 


. 


0130063 








33 






L R10,MCHB * 


PLACE BAD CONSTANT INTO R10. 


0130063 02 000242 


065231 




-001- 


34 






VFD 8,R10%T 8,HCHBXF 




0130064 








35 






ZMINT 




0130064 02 000243 


026750 




-001- 


36 






DATA ZMINTX 


, 


0130065 02 000244 


023440 






37 






SMIO 




0130066 02 000245 


003013 






38 






LN R0,11 




0130067 








39 


MYSL 






0130067 02 000246 


136000 130067 




40 






BX RO,MYSLF # 


WAIT FOR RESPONSE. 


0130071 02 000250 


023500 






41 






TIO n 


CHECK IF PARITY ERROR WAS IGNORED. 


0130072 02 000251 


054003 


- 0130075 




42 






BC ERRMSGCL # THE TEST SHOULD FAIL. 


0130073 02 000252 


023520 






43 






TMIO * 


CHECK IF PARITY ERROR WAS DETECTED. 


0130074 02 000253 


054016 


- 0130112 




44 






BC ERRESPCK * 


THIS TEST SHOULD PASS. 










45 


n THIS 


FIRST SEGMENT REQUIRES SPECIAL 


CLEAN UP. (BOTH PASS&FAIL BRANCHES) 


0130075 








46 


ERRMSGCL 




0130075 02 000254 


103260 






47 






ZR R11 MCLEAN VP POTENTIAL BAD PARITY. 


0130076 02 000255 


003240 






48 






ZR R10 n 


CLEAN UP BAD PARITY 


0130077 








49 






MIMODE 
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- 


' 






CD5 



TOC DIAGNOSTIC PROGRAM. 

TEST 1 SPI INTERFACE TEST 

0130077 02 000256 013400 

0130100 

0130100 02 000257 111760 

0130101 

0130101 02 000260 025750 

0130102 

0130102 02 000261 026750 

0130103 

0130103 02 000262 013002 

0130104 02 000263 107322 

0130105 

0130105 02 000264 013001 

0130106 02 000265 107322 

0130107 02 000266 014210 — 

0130110 02 000267 054111 0130221 

0130111 02 000270 057014 0130125 

0130112 

0130112 02 000271 103401 000407 

0130114 02 000273 020013 

0130115 02 000274 055760 C130075 

0130116 02 000275 003201 

0130117 02 000276 010614 

0130120 02 000277 016170 000360 
0130122 02 000301 034560 043463 CTSO 

0130124 02 000303 053751 0130075 

01,30125 



-001- 01 
02 

-001- 03 
04 

-001- 05 
06 

-001- 07 
08 

-001- 09 

-001- 10 
11 

-001- 12 

-002- 13 
14 
15 
16 



18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 



-001- 
-001- 
-001- 
-001- 
-001- 



9:34:51 2/07/81 **** 
CTAPM W770 



HI 

L MCHTR,NOP * CLEAN UP MCHTR 

VFO 8,MCHTRXT 8,N0P%F 
ZER n CLEAN UP ERROR REGISTER 

DATA ZERX 
ZMINT 

DATA ZMINTX 
ZBIN n ALLOW INTERRUPTS 

MIS 2 
DATA 36562 

MIMODE L SS R,YT,DATA"S(BHC) # ALLOW HARDWARE CHECKS. 
MIS S(BHC) 

VFD 8,SS RXT 8,YTXF 
TZ R8 H DID FIRST SEGMENT FAIL (R8«=0) 

BC ERRMSGPOX U YES 

B CONTEST 



ERRESPCK 
LI 
CR 
BNC 

SEGADD 
LN 
RLN 
IRM 
STL 



RO, 0(407) 
R0,R11 

ERRMSGCL 



» CHECK FOR COLRECT RESPONSE FROM SPI. 



^DISPLAY SEGMENT IN BITS 4-7. 



R8,CHKP0INT 

R8,4 

R7,R8, 0(360) 

R7,MSFPR0G 

# _ SEG. NUMBER*1. 

'""§— "ERRMSGCL" ~~S~CLEAN~UP CORRECTLY AND CONTINUE TESTING. 
CONTEST 

# NEXT SEGMENT WILL PROBE FURTHER INTO THE SPI. ACTIVATION OF IT'S 

# TIMING CHAIN AND COMMUNICATION TO THE BUS TERMINATOR ARE CHECKED. 



35 # THIS SEGMENT WILL VERIFY THAT THE SPI CAN INTERPRET THE SPI INIT. 

36 H ORDER AND PASS THE INIT SIGNAL DOWN TO THE OTHER UNITS TO DESELECT 

37 K THEM. AN ALL ZERO RESPONSE SHOULD BE RECIEVED BY THE PROCESSOR. 



0130125 



41 



TRBL JK5,JK6,JK7 



-001- 42 Hi TBL 0101 

-001- 43 #» TEST 1 

-001- 44 #8 SEGMENT 1 

-001- 45 #8 PR CTAPM 

-001- 46 # 

-001- 47 # EXPECTED OUTPUT MESSAGE. 

-001- < ' U DGN TAPE 1 01 R9 R10 R11 

-001- 49 n 



COMMON TAPE MAINTENANCE 

9:34:51 2/07/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET 



CTAPM 
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D05 




TDC DIAGNOSTIC 


PROGRAM. 












9:34:51 2/07/81 **** 


TEST 1 SPI INTERFACE TEST 












CTAPM H77D 








-001- 


01 


g 


MTC 68-34 JK5 SERIAL 


PERIPHERAL INTERFACE CIRCUIT 








-001- 


02 


1 


MTC 68-33 JK6 SERIAL 


PERIPHERAL INTERFACE CIRCUIT 








-001- 


03 


It 


MTC 68-32 JK7 SERIAL 


PERIPHERAL INTERFACE CIRCUIT 








-001- 


04 


H 












-001- 


05 


* 












-001- 


06 


a 












-001- 


07 


n 


TBL 1101 










-001- 


08 


n 


TEST 1 










-001- 


09 


n 


SEGMENT 1 










-001- 


10 


n 


PR CTAPM 










-001- 


11 


# 




• 








-001- 


12 


# 


EXPECTED OUTPUT MESSAGE. 










-001- 


13 


if 


DGN TAPE 1 1 01 R9 R10 R11 










-001- 


14 


K 












-002- 


15 


# 


MTC 60-34 JK5 SERIAL 


PERIPHERAL INTERFACE CIRCUIT 








-002- 


16 


# 


MTC 60-33 JK6 SERIAL 


PERIPHERAL INTERFACE CIRCUIT 








-002- 


17 


it 


MTC 60-32 JK7 SERIAL 


PERIPHERAL INTERFACE CIRCUIT 








-001- 


18 


* 












-001- 


19 


* 


SEGMENT 1 DESCRIPTION. 










-001- 


20 


n 














21 


n 


» SPECIAL INITIALIZATION ORDER SENT TO 1 ■ SPI SHOULD DESELECT ALL 










22 


it 


JNITS IN THE TDC AND SET THEM TO AN INIT STATE. 










23 


m 


TBLEND 




0130125 02 000304 


1036*1 0*0007 






27 




LI R10,INIT 


• 


0130127 








28 




CALL SENDMIOM 


If SEND INIT TO TDC AND UTILIZE 


0130127 02 000306 


037020 13206* 


0132064 


-001- 


29 




BSA SENDMIOM 




0130131 02 000310 


11*273 






30 




TZ R11 


# MAS RESPONSE CORRECT (ALL ZERO) 


0130132 02 000311 


055067 


0130221 




31 




BNC ERRMSGPOX 


It MESSAGE ACCEPTED BY INCORRECT RESPONSE. 










33 


it 


ALL UNITS SHOULD BE NOW INITIALIZED AND NONE SHOULD BE RESPONDING 










34 


it 


ro A STATUS REQUEST. 


1 










35 




SEGADD 




0130133 02 000312 


003202 




-001- 


36 




LN R6,CHKP0INT 




013013* 02 000313 


01061* 




-001- 


37 




RLN R8,4 




0130135 02 00031* 


016170 000360 




-001- 


38 




IRM R7,R8,0(360) 


0DISPLAY SEGMENT IN BITS *-7. 


0130137 02 000316 


034560 043463 


CTSD 


-001- 


39 




STL R7,MSFPR0G 










-001- 


40 


it 




SEG. NUMBER-2. 


01301*1 








44 




TRBL JK8,JK10,JK11,JK12,JK13,JK16,JK17 








-001- 


45 


#s 


TBL 0102 










-001- 


46 


#8 


TEST 1 










-001- 


47 


Hi 


SEGMENT 2 










-001- 


48 


#* 


PR CTAPM 










-001- 


49 


# 






COMMON TAPE MAINTENANCE 
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TOC DIAGNOSTIC PR06RAM. 
TEST 1 SPI INTERFACE TEST 



0130141 02 000320 0036*1 010007 

0130143 

0130143 02 000322 037020 111050 CSYSUB 

0130145 02 000324 124001 

0130146 02 000325 055053 0130221 



COMMON TAPE MAINTENANCE 

9:34:51 2/07/81 TRADE SECRET 



-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-002- 
-002- 
-002- 
-002- 
-002- 
-002- 
-002- 
-001- 
-001- 
-001- 



01 
02 
03 
04 
05 
06 
07 
08 

uv 

10 

11 

12 
13 



E05 



EXPECTED OUTPUT MESSAGE. 
DGN TAPE 1 02 R9 R10 R11 

MTC 68-17 JK8 BUS TERMINATOR CIRCUIT 

MTC 68-31 JK10 BUFFER UNIT CIRCUIT 

MTC 68-29 JK11 BUFFER UNIT CIRCUIT 

MTC 68-28 JK12 BUFFER UNIT CIRCUIT 

MTC 68-27 JK13 BUFFER UNIT CIRCUIT 

MTC 68-22 JK16 TAPE UNIT CONTROLLER 

MTC 68-21 JK17 TAPE UNIT CONTROLLER 



9:34:51 2/07/81 **** 
CTAPM W77D 



14 Hi TBL 1102 

15 Hi TEST 1 

16 #8 SEGMENT 2 

17 #8 PR CTAPM 



18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



EXPECTED OUTPUT MESSAGE. 
DGN TAPE 1 1 02 R9 RIO R11 

MTC 60-17 JK8 BUS TERMINATOR CIRCUIT 

MTC 60-31 JK10 BUFFER UNIT CIRCUIT 

MTC 60-29 JK11 BUFFER UNIT CIRCUIT 

MTC 60-28 JK12 BUFFER UNIT CIRCUIT 

MTC 60-27 JK13 BUFFER UNIT CIRCUIT 

MTC 60-22 JK16 TAPE UNIT CONTROLLER 

MTC 60-21 JK17 TAPE UNIT CONTROLLER 

SEGMENT 2 DESCRIPTION. 

THIS SEGMENT CHECKS THAT THE SPI INIT ORDER WOULD DESELECT AND REMOVE 

ANY ERROR SIGNAL PRESENT IN THE TDC. AN INIT ORDER HAS BEEN SENT 

AND NOW A SEND STATUS ORDER IS ISSUED TO THE TDC. IF ANT ERROR EXISTS 

IN THE TDC AND THE INIT FAILED TO WORK IN AN INDIVIDUAL UNIT A MAINTENANCE 

RESPONSE WILL BE RECEIVED. 



-001- 



37 #& TBLEND 



41 
42 
43 
44 
45 



LI R10,SST 

CALL SENDMIO # ISSUE STATUS COMMAND TO THE SPI. 

BSA SENDMIO 

TBN R0,1 

BNC ERRMSGPOX # A MAINTENANCE RESPONSE WAS GIVEN. 




PR-1C958-50 
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TDC DIAGNOSTIC PROGRAM. 
TEST 1 SPI INTERFACE TEST 



0130147 02 000326 003203 

0130150 02 000327 010614 

0130151 02 000330 016170 000360 
0130153 02 000332 034560 04-463 CTSD 



0130155 



-001- 
-001- 
-001- 
-001- 
-001- 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 



-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-002- 
-002- 
-002- 
-002- 
-002- 
-001- 
-001- 
-001- 



9:34:51 2/07/81 *>>** 
CTAPM W770 



IKDISPUAT SEGMENT IN BITS 4-7. 



SEGADD 

LN R8,CHKP0INT 

RLN R8,4 

IRM R7,R8, 0(360) 

STL R7,MSFPR0G 

SEG. NUMBERS. 

"N0~UNIT~IS~PERMINENfC7"ADDRESSED7~BEGIN~CHECK~OUT OF 
THE PARRALLEL COMMUNICATION BUS VIA THE USE OF THE 
BUS TERMINATOR CIRCUIT. THIS WILL ALSO CHECK THE SPI'S 



U ABILITY TO ACCEPT AND TRANSMIT GIVEN ORDER BIT CONFIGURATIONS. 



15 TRBL 

16 Hi TBL 0103 

17 #8 TEST 1 

18 K& SEGMENT 3 

19 #8 PR CTAPM 



JK5,JK6,JK7,JK8,JK9 



EXPECTED OUTPUT MESSAGE. 
DGN TAPE 1 03 R9 R10 R11 

MTC 68-34 JK5 SERIAL PERIPHERAL INTERFACE CIRCUIT 

MTC 68-33 JK6 SERIAL PERIPHERAL INTERFACE CIRCUIT 

MTC 68-32 JK7 SERIAL PERIPHERAL INTERFACE CIRCUIT 

MTC 68-17 JK8 BUS TERMINATOR CIRCUIT 

MTC 68-16 JK9 BUS TERMINATOR CIRCUIT 



32 H% TBL 1103 

33 (f.8 TEST 1 

34 #8 SEGMENT 3 

35 #8 PR CTAPM 

36 U 
EXPECTED OUTPUT MESSAGE. 

DGN TAPE 1 1 03 R9 R10 R11 



37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



MTC 60-34 JK5 SERIAL PERIPHERAL INTERFACE CIRCUIT 

MTC 60-33 JK6 SERIAL PERIPHERAL INTERFACE CIRCUIT 

MTC 60-32 JK7 SERIAL PERIPHERAL INTERFACE CIRCUIT 

MTC 60-17 JK8 BUS TERMINATOR CIRCUIT 

MTC 60-16 JK9 BUS TERMINATOR CIRCUIT 

SEGMENT 3 DESCRIPTION. 

THIS SEGMENT WILL ADDRESS THE BUS TERMINATOR THROUGH THE ALL ZERO- 
ALL ONES ORDERS. THE BUS TERMINATOR UNIT WILL MTMIC ANY ORDER SEND 



COMMON TAPE MAINTENANCE 
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G05 


TOC DIAGNOSTIC 


PROGRAM. 












9:34:51 2/07/81 **** 


TEST 


1 


SPI INTERFACE TEST 












CTAPM W77D 














01 


ft 


TO IT AFTER 


IT HAS BEEN ADDRESSED. 


0130155 












02 




















03 


It 


THE DATA WORDS IN THE FAILURE MESSAGE ARE: 














04 


It 


R9=TDC I/O ADDRESS 














05 


# 


R10=0RDER SENT TO BUS TERMINATOR (ALL ZERO OR ALL ONES) 














06 


ft 


R11=BUS 


TERMINATOR RESPONSE (OR LACK OF RESPONSE), 














07 


tt& 


TBLEND 




0130155 


02 


000334 


003240 






08 




ZR 


R10 tt PREPARE BUS TERMINATOR ALL ZERO COMMAND. 


0130156 












09 




SBIN 




0130156 


02 


000335 


013002 




-001- 


10 




MIS 


2 


0130157 


02 


000336 


105722 037020 




-001- 


11 




DATA 


35794 


0130160 












12 




CALL 


SMTM tt SEND ORDER 


0130160 


02 


000337 


037020 132056 


0132056 


-001- 


13 




BSA 


SMTM 


0130162 


02 


000341 


155037 


0130221 




14 




BNC 


ERRMSGPOX 


0130163 


02 


000342 


014273 






15 




TZ 


R11 


0130164 


02 


000343 




0130221 




16 




BNC 


ERRMSGPOX 


0130165 


02 


000344 


015652 






17 




COM 


R10 tt CHANGE TEST PATTERN. 


0130166 












18 




CALL 


SMTM It SENI/ ORDER 


0130166 


02 


000345 


037020 132056 


0132056 


-001- 


19 




BSA 


SMTM 


0130170 


02 


000347 


155031 


0130221 




20 




BNC 


ERRMSGPOX 


0130171 


02 


000350 


020660 






21 




FLZ 


R11,R0 tt WAS THE REPLY CORRECT. 


0130172 


02 


000351 


054027 


0130221 




22 
23 




BC 
SEGADD 


ERRMSGPOX 


0130173 


02 


000352 


003204 




-001- 


24 




LN 


R8,CHKP0INT 


0130174 


02 


000353 


010614 




-001- 


25 




RLN 


R8,4 


0130175 


02 


000354 


016170 000360 




-001- 


26 




IRM 


R7,R8, 0(360) ^DISPLAY SEGMENT IN BITS 4-7. 


0130177 


02 


000356 


034560 043463 


CTSD 


-001- 
-001- 


27 
28 


It 


STL 


R7,MSFPR0G 

SEG. NUMBERS. 














29 


tt 


TflE BUS TERMINATOR CAN BE ADDRESSED. NOW CHECK VARIOUS 














30 


tt 


CONSTANTS TO VERIFY THE SPI SHIFT REGISTER AND BT PARITY TREES. 


0130201 










1 1 1 1 1 

ooooo 
ooooo 
— » — * — » — > — * 
i i i i i 


34 
35 
36 
37 
38 
39 


#8 

n 
n 

M 
H 


TRBL 
TBL 0104 
TEST 1 
SEGMENT 4 
PR CTAPM 


JK5,JK6,JK7,JK8,JK9 












-001- 


40 


it 


EXPECTED OUTf 












-001- 


41 


n 


DGN TAPE 


I 04 R9 R10 R11 












-001- 


42 


it 
















-001- 


43 


it 


MTC 


68-34 JK5 SERIAL PERIPHERAL INTERFACE CIRCUIT 












-001- 


44 


u 


HTC 


68-33 JK6 SERIAL PERIPHERAL INTERFACE CIRCUIT 












-001- 


45 


tt 


MTC 


68-32 JK7 SERIAL PERIPHERAL INTERFACE CIRCUIT 












-001- 


46 


tt 


MTC 


68-17 JK8 BUS TERMINATOR CIRCUIT 












-001- 


47 


tt 


MTC 


68-16 JK9 BUS TERMINATOR CIRCUIT 












-001- 


48 


tt 
















-001- 


49 


tt 






COMMON TAPE MAINTENANCE 
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TDC DIAGNOSTIC PROGRAM. 
TEST 1 SPI INTERFACE TEST 



9:34:51 2/07/81 **** 
CTAPM W77D 



-001- 01 

-001- 02 

-001- 03 

-001- 04 

-001- 05 

-001- 06 

-001- 07 

-001- 08 

-001- 09 

-002- 10 

-002- 11 

-002- 12 

-002- 13 

-002- 14 

-001- 15 

-001- 16 

-001- 17 

18 

19 

20 

21 

22 

23 

24 



EXPECTED OUTPUT MESSAGE. 
DGN TAPE 1 1 04 R9 R10 R11 



1t% TBL 1104 
#8 TEST 1 
U SEGMENT 4 
#8 PR CTAPM 

# 
K 
tt 
tt 
tt 

§ 
tt 
tt 

n 

tt 
tt 
H 
tt 
tt 
tt 
tt 



SERIAL PERIPHERAL INTERFACE CIRCUIT 
SERIAL PERIPHERAL INTERFACE CIRCUIT 



MTC 60-34 JK5 

MTC 60-33 JK6 

MTC 60-32 JK7 SERIAL PERIPHERAL INTERFACE CIRCUIT 

MTC 60-17 JK8 BUS TERMINATOR CIRCUIT 

MTC 60-16 JK9 BUS TERMINATOR CIRCUIT 



SEGMENT 4 DESCRIPTION. 

THIS SEGMENT HILL SEND 16 PATTERNS TO THE BUS TERMINATOR. THE 
PATTERN WILL BE BASICALL ALL ZERO WITH A ONE ROTATING THROUGH 
THE ALL ZERO FIELD. THE DATA WORDS ARE: 
R9=I/0 ADDRESS OF TDC 
R10=PATTERN SENT TO BUS TERMINATOR 
R11=BUS TERMINATOR RESPONSE AS SENT BY THE SPI. 



#8 TBLEND 



0130201 02 000360 003241 

0130202 

0130202 02 000361 037020 132042 0132042 

0130204 02 000363 155015 0130221 

0130205 02 000364 003205 

0130206 02 000365 010614 

0130207 02 000366 016170 000360 
0130211 02 000370 034560 043463 CTSD 



28 

30 
-001- 31 
32 
33 
-001- 34 
-001- 35 
-001- 36 
-001- 37 
-001- 38 



LN 



R10,1 



CALL 


SENDSFT 


BSA 


SENDSFT 


BNC 


ERRMSGPOX 


SEGADD 




LN 


R8,CHKP0INT 


RLN 


R8,4 


IRM 


R7,R8, 0(360) 


STL 


R7,MSFPR0G 



(KSET UP STARTING CONSTANT. (ONE THRU FIELD OF 
ZEROES) 



(KDISPLAY SEGMENT IN BITS 4-7. 
■_ SEG. NUMBER=5. 



0130213 



42 TRBL JK5,JK6,JK7,JK8,JK9 
-001- 43 1t% TBL 0105 
-001- 44 tti TEST 1 
-001- 45 ttt SEGMENT 5 
-001- 46 ItS, PR CTAPM 
-001- 47 tt 

-001- 48 It EXPECTED OUTPUT MESSAGE. 
-001- 49 # DGN TAPE 1 05 R9 R10 R11 



COMMON TAPE MAINTENANCE 
9:34:51 2/07/81 TRADE SECRET 
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TOC DIAGNOSTIC PROGRAM. 








9:34:51 2/07/81 **** 


TEST 1 SPI INTERFACE TEST 








CTAPM M77D 




-001- 


01 


* 


- 




-001- 


02 


# MTC 


68-34 JK5 SERIAL PERIPHERAL INTERFACE CIRCUIT 




-001- 


03 


* MTC 


68-33 JK6 SERIAL PERIPHERAL INTERFACE CIRCUIT 




-001- 


04 


# MTC 


68-32 JK7 SERIAL PERIPHERAL INTERFACE CIRCUIT 




-001- 


05 


* MTC 


68-17 JK8 BUS TERMINATOR CIRCUIT 


• t 


-001- 


06 


* MTC 


68-16 JK? BUS TERMINATOR CIRCUIT 




-001- 


07 


» 






-001- 


08 


n 






-001- 


09 


n 






-001- 


10 


n% TBL 1105 






-001- 


11 


n TEST 1 






-001- 


12 


H SEGMENT 5 






-001- 


13 


#8 PR CTAPM 






-001- 


14 


n 






-001- 


15 


n EXPECTED OUTPUT MESSAGE, 




-001- 


16 


n DGN TAPE 1 ' 


05 R9 R10 R11 




-001- 


17 


» 






-002- 


18 


K MTC 


60-34 JK5 SERIAL PERIPHERAL INTERFACE CIRCUIT 




-002- 


19 


» MTC 


60-33 JK6 SERIAL PERIPHERAL INTERFACE CIRCUIT 




-002- 


20 


n MTC 


60-32 JK7 SERIAL PERIPHERAL INTERFACE CIRCUIT 




-002- 


21 


n MTC 


60-17 JK8 BUS TERMINATOR CIRCUIT 




-002- 


22 


K MTC 


60-16 JK9 BUS TERMINATOR CIRCUIT 


• 


-001- 


23 


9 






-001- 


24 


# SEGMENT 5 DESCRIPTION. 




-001- 


25 


» 








26 


# THIS SEGMENT IS SAME AS PREVIOUS EXCEPT A ZERO IS ROTATED 






27 


# THROUGH A FIELD OF ONES. 






28 


#& TBLEND 




0130213 02 000372 015652 




32 


COM 


R10 U SET M? ZERO THRU FIELD OF ONES. 


0130214 




33 


CALL 


SENDSFT 


0130214 02 000373 037020 132042 


0132042 -001- 


34 


BSA 


SENDSFT 


0130216 




35 


ZBIN 






-001- 


36 


MIS 


2 


0130217 02 000376 107322 


-001- 


37 


DATA 


36562 


0130220 02 000377 054350 


0130570 


38 


BC 


CONTRTN 


0130221 




39 


ERRMSGPOX 




0130221 




40 


ZBIN 




0130221 02 000400 113002 


-001- 


41 


MIS 


2 


0130222 02 000401 107322 037000 


-001- 


42 


DATA 


36562 


0130223 02 000402 037000 132000 


0132000 


43 


BL 


ERRMSGPO 


COMMON TAPE MAINTENANCE 
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TDC DIAGNOSTIC PROGRAM. 
TEST 2 BUFFER UNIT TEST 
0130225 



0000002 



0130225 02 000*0* 103162 

0130226 02 000*05 03*560 0*3*63 CTSD 



£06 

9:3*:51 2/07/81 **** 
CTAPM W770 

01 BUFFER 

02 TEST SET TEST+1 

03 H THIS IS THE BUFFER TEST FOR THE TOC. FIRST AN INITIALIZATION ORDER 
0* n IS SENT TO ATTEMPT TO SET ALU STATES TO A KNOWN LEVEL. 

05 LN R7,2 * TEST NUMBER FOR PRINTOUT. 

06 SEGADDI 

-001- 07 STL R7.MSFPR0G ^DISPLAY NUMBER ON LOW * BITS OF SSP. 

-001- 08 * SEG. NUMBER=0. 



0130230 



-001 

-001 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-002- 

-002- 

-002- 

-002- 

-001- 

-001- 

-001- 



12 TRBL 

13 *l TBL 0200 
1* tli TEST 2 

15 M SEGMENT 

16 #R PR CTAPM 



JK10,JK11,JK12,JK13 



EXPECTED OUTPUT MESSAGE. 
DGN TAPE 2 00 R9 R10 R11 

MTC 68-31 JK10 BUFFER UNIT CIRCUIT 

MTC 68-29 JK11 BUFFER UNIT CIRCUIT 

MTC 68-28 JK12 BUFFER UNIT CIRCUIT 

MTC 68-27 JK13 BUFFER UNIT CIRCUIT 



28 #8 TBL 1200 

29 #8 TEST 2 

30 #8 SEGMENT 
#8 PR CTAPM 



31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 



EXPECTED OUTPUT MESSAGE. 
DGN TAPE 1 2 00 R9 R10 R11 

MTC 60-31 JK10 BUFFER UNIT CIRCUIT 

MTC 60-29 JK11 BUFFER UNIT CIRCUIT 

MTC 60-28 JK12 BUFFER UNIT CIRCUIT 

MTC 60-27 JK13 BUFFER UNIT CIRCUIT 

SEGMENT DESCRIPTION. 

A BUFFER INITIALIZATION ORDER WAS SENT AND THE EXPECTED REPLY 
SHOULD HAVE INDICATED AN IDLE BUFFER UNIT. THE R11 DATA WORD 
INDICATES THE LACK OF OR EXTRA BITS RETURNED BY THE BUFFER UNIT. 
THE CONSTANT LOOKED FOR IS 0(20*13). 



*7 Hi TBLEND 



COMMON TAPE MAINTENANCE 
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D06 


.. 


TDC DIAGNOSTIC PROGRAM. 


9:34:51 2/07/81 **** 






TEST 2 BUFFER UNIT TEST 


CTAPM W77D 






0130230 02,000407 003641 160013 


01 LI R10,BINIT # SEND BUFFER INIT. 




1 


0130232 


02 CALL SENDMIOM 






0130232 02 000411 0370Z0 132064 0132064 


-001- 03 BSA SENDMIOM 




' 


0130234 02 000413 103665 020413 


04 CI R11,M(RDY)+t1<ACTIV>+BUFDEV It CHECK RESPONSE FROM IDLE BUFFER. 




. 


0130236 02 000415 055763 0130221 


05 BNC ERRMSGPOX » RESPONSE IS INCORRECT. 






06 SEGADD 




0130237 02 000416 003201 


-001- 07 LN R8,CHKP0INT 






0130240 02 000417 010614 


-001- 08 RLN R8,4 




i 


0130241 02 000420 016170 000360 


-001- 09 IRM R7,R8,O(360> ^DISPLAY SEGMENT IN BITS 4-7. 






0130243 02 000422 034560 043463 CTSD 


-001- 10 STL R7,MSFPR0G 

-001- 11 It SEG. NUMBER=1. 




. 


0130245 


15 TRBL JK10 
-001- 16 Hi, TBL 0201 
-001- 17 #8 TEST 2 
-001- 18 #8 SEGMENT 1 

-001- 19 n PR CTAPM ... 
-001- 20 * 

-001- 21 tt EXPECTED OUTPUT MESSAGE. 
-001- 22 It DGN TAPE 2 01 R9 R10 R11 
-001- 23 It 

-001- 24 It MTC 68-31 JK10 BUFFER UNIT CIRCUIT 
-001- 25 It 
-001- 26 It 
-001- 27 # 
-001- 28 III TBL 1201 
-001- 29 n TEST 2 




. 




-001- 30 #8 SEGMENT 1 








-001- 31 Hi PR CTAPM 








-001- 32 H 

-001- 33 It EXPECTED OUTPUT MESSAGE. 








-001- 34 # DGN TAPE 1 2 01 R9 R10 R11 

-001- 35 It 

-002- 36 It MTC 60-31 JK10 BUFFER UNIT CIRCUIT 

-001- 37 # 

-001- 38 H SEGMENT 1 DESCRIPTION. 

-001- 39 It 

40 It IN PREPARATION FOR THE NEXT TEST, A BUFFER SET THE LOAD STATE ORDER 

41 It IS SENT TO THE BUFFER UNIT. THE CORRECT RESPONSE SHOULD HAVE BEEN 

42 It 0(22413) INDICATING A IDLE BUFFER UNIT PLACED INTO THE LOAD STATE 

43 K READY TO ACCEPT DATA FROM THE CC'S. R11 DATA WORD INDICATES THE 








44 » INCORRECT RESPONSE. 








45 #8 TBLEND 




COMMON TAPE MAINTENANCE 


PR-1C958-50 




i 


9:34:51 2/07/81 TRADE SECRET - 


SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPM ISSUE 06 PAGE 37 























E06 , 


TDC DIAGNOSTIC PROGRAM. 












9:34:51 2/07/81 **** 


TEST 2 BUFFER UNIT TEST 












CTAPM W77D 


0130245 02 000424 003641 042013 






01 




LI 


R10,BSLDON It PREPARE FOR THE LOAD STATE. 


0130247 






02 




CALL 


SENDMIOM 


0130247 02 000426 037020 132064 


0132064 


-001- 


03 




BSA 


SENDMIOM 


0130251 02 000430 103665 022413 






04 




CI 


R11,M(ACTIV)+M(L0DST)+M(RDY>+BUFDEV 


0130253 02 000432 055746 


0130221 




05 

09 




BNC 
SEGADD 


ERRMSGPOX 


0130254 02 000433 003202 




-001- 


10 




LN 


R8,CHKP0INT 


0130255 02 000434 010614 




-001- 


11 




RLN 


R8,4 


0130256 02 000435 016170 000360 




-001- 


12 




IRM 


R7,R8, 0(360) ^DISPLAY SEGMENT IN BITS 4-7. 


0130260 02 000437 034560 043463 


CTSD 


-001- 


13 




STL 


R7,MSFPR0G 






-001- 


14 


1 




SEG. NUMBER=2. 


0130262 02 000441 003441 125252 






15 




LI 


R2 ,0TyZ5ltt ? PREPARE A CHECKER PATTERN. 








16 


1 


THE ABILITY 


TO CORRECTLY SHIFT INFORMATION THROUGH THE 1024 








17 


n 


BIT BUFFERS 


IS NEXT TESTED. THIS WILL ASSURE THAT THE COUNTERS 








18 


n 


WITHIN THE 


BUFFER UNIT FUNCTION CORRECTLY AND THAT THE STUFF 








19 


H 


FUNCTION OPERATES CORRECTLY. THE TWO BUFFERS ARE LOADED WITH 








20 


n 


A CHECKER PATTERN AND FILLED ONLY HALF WAY. THE STUFF FUNCTION 








21 


n 


IS USED TO 


RIGHT ADJUST THE PATTERN IN THE BUFFERS. TO ASSURE 








22 


n 


THAT THE BUFFERS SWITCH PROPERLY THE COMPLIMENT CHECKER 


' 






23 


n 


PATTERN IS 


LOADED IN THE OTHER BUFFER. 


0130264 






27 




TRBL 


JK10,JK11,JK12,JK13 






-001- 


28 


n 


TBL 0202 


■ 






-001- 


29 


H% 


TEST 2 


. . 






-001- 


30 


H& 


SEGMENT 2 








-001- 


31 


n 


PR CTAPM 








-001- 


32 


* 










-001- 


33 


n 


EXPECTED OUT 


• 




-001- 


34 


# 


DGN TAPE 


2 02 R9 RIO R11 






-001- 


35 


* 










-001- 


36 


# 


MTC 


68-31 JK10 BUFFER UNIT CIRCUIT 






-001- 


37 


n 


MTC 


68-29 JK11 BUFFER UNIT CIRCUIT 






-001- 


38 


# 


MTC 


68-28 JK12 BUFFER UNIT CIRCUIT 






-001- 


39 


H 


MTC 


68-27 JK13 BUFFER UNIT CIRCUIT 






-001- 


40 


H 




' 






-001- 


41 


n 










-001- 


42 


n 










-001- 


43 


n 


TBL 1202 


' 






-001- 


44 


H& 


TEST 2 


1 ' " ' ' 






-001- 


45 


n 


SEGMENT 2 


.• 






-001- 


46 


n 


PR CTAPM 








-001- 


47 


it 




' 






-001- 


48 


§ 


EXPECTED OUT 






-001- 


49 


# 


DGN TAPE 1 


2 02 R9 R10 R11 


COMMON TAPE MAINTENANCE 












-. 
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9:34:51 2/07/81 TRADE SECRET - 


5EE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPM ISSUE 06 PAGE 38 














■ 



• • 



I 















F06 


TDC DIAGNOSTIC 


PROGRAM. 












9:34:51 2/07/81 **** 


TEST 2 BUFFER 


UNIT TEST 


-001- 


01 


* 






CTAPM W77D 






-002- 


02 


» 




MTC 


60-31 JK10 BUFFER UNIT CIRCUIT 






-002- 


03 


* 




MTC 


60-29 JK11 BUFFER UNIT CIRCUIT 






-002- 


04 


n 




MTC 


60-28 JK12 BUFFER UNIT CIRCUIT 






-002- 


05 


n 




MTC 


60-27 JK13 BUFFER UNIT CIRCUIT 






-001- 


06 


» 












-001- 


07 


* 


SEGMEN 






-001- 


08 


H 














09 


% 


THIS 


SEGMEN1 


CHECKS OUT THE ABILITY OF BOTH BUFFERS TO ACCEPT 








10 


n 


LOAC 


COMMANDS AND DATA (NOT ITS CORRECT STORAGE). THE ACCEPTANCE 








11 


H 


AND 


APPARENT 


EXECUTION OF THE BUFFER STUFF COMMAND IS ALSO CHECKED. 








12 


n 


THE 


STUFF ORDER RIGHT ADJUSTS A PARTIALLY FILLED BUFFER. THE BUFFERS 








13 


n 


ARE 


SWITCHED 


USING THE BUFFER SWITCH ORDER. UPON EXIT, BOTH BUFFERS 








14 


# 


HAVE 


BEEN FILLED HALF WAY WITH A CHECKER PATTERN (EACH BUFFK f CONTAINS 








15 


i 


THE 


COMPLEMENT CHECKER PATTERN OF ITS MATE BUFFER). THIS PARTIALLY 








16 


* 


FILLED BUFFER IS RIGHT ADJUSTED BY THE STUFF ORDER. 


' 






17 


n 


TBLEND 




0130264 02 000443 


003461 030013 




21 






LI 


R3,M(ACTIV)+M(STUFF)+6UFDEV * CONSTANTS USED IN LOAD LOOP. 


0130266 02 000445 


003501 010413 




22 






LI 


R4,M(RDY)+M(STUFF)+6UFDEV 


0130270 






23 


NXTL 




0130270 






24 






CALL 


L0D1HLF U LOAD BUFFER ZERO. 


0130270 02 000447 


137020 132076 0132076 


-001- 


25 






BSA 


L0D1HLF 


0130272 02 000451 






26 






BNC 


ERRMSGPOX n ERROR IN BUFFER LOADING WAS ENCOUNTERED. 


0130273 02 000452 


003641 050013 




27 






LI 


R10,BSTF0N U SET STUFF FUNCTION 


0130275 






28 






CALL 


SENDMIOM 


0130275 02 000454 


037020 132064 0132064 


-001- 


29 






BSA 


SENDMIOM 


0130277 02 000456 


120263 




30 






CR 


R11,R3 » WAS STUFF FUNCTION REPLY CORRECT? 


0130300 02 000457 


022075 




31 






ZBN 


R3,S(ACTIV) * PREPARE FOR NEXT LOOP. 


0130301 02 000460 


055720 0130221 




32 






BNC 


ERRMSGPOX 


0130302 






33 






CALL 


WAIT1 II WAIT FOR STUFF TO COMPLETE. 


0130302 02 000461 


037020 132224 0132224 


-001- 


34 






BSA 


WAIT1 


0130304 02 000463 


103641 140013 




35 






LI 


R10,BSWB It SWITCH BUFFERS FOR NEXT STEP 


0130306 






36 






CALL 


SENCMIOM 


0130306 02 000465 


037020 132064 0132064 


-001- 


37 






BSA 


SENDMIOM 


0130310 02 000467 


120264 




38 






CR 


R11,R4 # WAS BUFFER SWITCH ACTIVATED. 


0130311 02 000470 026115 




39 






SBN 


R4,S(ACTIV) 


0130312 02 000471 


055707 0130221 




40 






BNC 


ERRMSGPOX 


0130313 02 000472 


015442 




41 






COM 


R2 # PREPARE COMPLIMENT OF LAST LOAD FOR BUFFER 

1 . 
R11/S(ACTIV) H CHECK IF BOTH BUFFERS WERE USED. 


0130314 02 000473 


024275 




43 






TBN 


0130315 02 000474 


055753 0130270 




44 
45 






BNC. 
SEGADD 


NXTLOAD 


0130316 02 000475 


003203 


-001- 


46 






LN 


R8,CHKP0INT 


0130317 02 000476 


010614 


-001- 


47 






RLN 


R8,4 


0130320 02 000477 


016170 000360 


-001- 


48 






IRM 


R7,R8, 0(360) HfDISPLAV SEGMENT IN BITS 4-7. 


0130322 02 000501 


034560 043463 CTSD 


-001- 


49 






STL 


R7,MSFPR0G 


COMMON TAPE MAINTENANCE 












PR-1C958-50 


7:34:51 2/07/81 TRADE SECRET - SEE TRADE SECRET 


RESTRICTIVE NOTICE ON COVER SHEET CTAPM ISSUE 06 PAGE 3? 



TDC DIAGNOSTIC PROGRAM. 
TEST 2 BUFFER UNIT TEST 

013032* 02 000503 003461 024*13 



606 



-001- 01 § 
02 



LI 



9:34:51 2/07/81 **** 

CTAPM W77D 

SEG. NUMBERS. 
"R37fi7ACflvy+MTUNSTy+MTRDYy+BUFDEV~# PREPARE FOR COMPARE. 



0130326 












-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-002- 
-002- 
-002- 
-002- 
-001- 
-001- 
-001- 



06 TRBL JK10,JK11,JK12,JK13 

07 n TBL 0203 

08 #& TEST 2 

09 U SEGMENT 3 

10 tit PR CTAPM 

11 n 

EXPECTED OUTPUT MESSAGE. 
OGN TAPE 2 03 R9 R10 R11 



MTC 68-31 JK10 BUFFER UNIT CIRCUIT 

MTC 68-29 JK11 BUFFER UNIT CIRCUIT 

MTC 68-28 JK12 BUFFER UNIT CIRCUIT 

MTC 68-27 JK13 BUFFER UNIT CIRCUIT 



12 * 

13 n 

14 H 

15 # 

16 * 

17 # 

18 tt 

19 K 

20 n 

21 * 

22 Hi TBL 1203 

23 #8 TEST 2 

24 *& SEGMENT 3 

25 #8 PR CTAPM 

n 

EXPECTED OUTPUT MESSAGE. 
DGN TAPE 1 2 03 R9 R10 R11 



26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



MTC 60-31 JK10 BUFFER UNIT CIRCUIT 

MTC 60-29 JK11 BUFFER UNIT CIRCUIT 

MTC 60-28 JK12 BUFFER <JNIT CIRCUIT 

MTC 60-27 JK13 BUFFER UNIT CIRCUIT 

SEGMENT 3 DESCRIPTION. 

THIS SE6MENT WILL DETERMINE IF THE PREVIOUS LOAD FUNCTION 
HAS SUCCESSFULLY TRANSFERRED DATA INTO THE TWO 1024 BIT 
BUFFER. EACH BUFFER HILL BE UNLOADED AND THE CHECKER PATTERN 
LOOKED AT FOR CORRECTNESS. ALSO THE TRAILING 32 ZERO WORDS 
THAT THE STUFF FUNCTION SHOULD HAVE LOADED DURING ITS EXECUTION. 
THE BUFFER COUNTER IS CHECKED TO ASSURE THAT THE CORRECT NUMBER 
OF SHIFTS CAN BE GENERATED FOR THE STUFF FUNCTION. IN OTHER WORDS, 
32 CHECKER PATTERNS MUST BE FOLLOWED BY 32 ALL ZERO WORDS. 






45 *& TBLEND 



. 






COMMON TAPE MAINTENANCE 

9:34:51 2/07/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET 



CTAPM 



PR-1C958-50 
ISSUE 06 PAGE 



*0 



• • 






TOC DIAGNOSTIC 


PROGRAM. 














9:34:51 2/07/81 **** 


TEST 


2 


BUFFER 


UNIT TEST 














CTAPM H77D 


0130326 










01 


NXTUNL 








0130326 


02 


000505 


103641 044013 




02 






LI 


R10,BSUNLD0N 


« PREPARE FOR UNLOAD OPERATION 


0130330 










03 






CALL 


SENDMIOM 




0130330 


02 


000507 


037020 132064 0132064 


-001- 


04 






BSA 


SENDMIOM 




0130332 


02 


COOS 11 


117263 024013 




05 






CRM 


R11,R3,M(ACTIV)+M(UNST)+flUFDEV # CHECK FOR ACTIVE UNLOAD STATE. 


0130334 


02 


000513 


055665 0130221 




06 






BNC 


ERRMSGPOX 




0130335 


02 


000514 


003641 120013 




07 






LI 


R10,BCLR0CN 


ft CLEAR THE OFF-LINE COUNTER 


0130337 










08 






CALL 


SENDMIOM 




0130337 


02 


000516 


037020 132064 0132064 


-001- 


09 






BSA 


SENDMIOM 




0130341 


02 


000520 


120263 




10 






CR 


R11,R3 


M CHECK STATE OF THE BUFFER UNIT. 


0130342 


02 


000521 


022075 




11 






ZBN 


R3,S(ACTIV) 


* PREPARE FOR NEXT LOOP. 


0130343 


02 


000522 


055656 0130221 




12 






BNC 


ERRMSGPOX 




0130344 










13 






CALL 


UNCHECK1 


tt UNLOAD BUFFER AND CHECK 


0130344 


02 


000523 


037020 132120 0132120 


-001- 


14 






BSA 


UNCHECK1 




0130346 


02 


000525 


155653 0130221 




15 






BNC 


ERRMSGPOX 




0130347 02 


000526 


003641 140013 




16 






LI 


R10,BSWB 


tt SWITCH BUFFERS 


0130351 










17 






CALL 


SENDMIOM 


#N0 STATUS CHECK. ASSUME SWITCH WORKS. 


0130351 


02 


000530 


037020 132064 0132064 


-001- 


18 






BSA 


SENDMIOM 




0130353 


02 


000532 


115442 




19 






COM 


R2 


PREPARE PATTERN FOR CHECK. 


0130354 


02 


000533 


024275 




20 






TBN 


R11,S(ACTIV) 


(C HAVE BOTH BUFFERS BEEN USED. 


0130355 


02 


000534 


055751 0130326 




21 
22 






BNC 
SEGADD 


NXTUNL 




0130356 


02 


000535 


003204 


-001- 


23 






LN 


R8,CHKP0INT 




0130357 


02 


000536 


010614 


-001- 


24 






RLN 


R8,4 




0130360 


02 


000537 


016170 000360 


-001- 


25 






IRM 


R7,R8, 0(360) 


^DISPLAY SEGMENT IN BITS 4-7. 


0130362 


02 


000541 


034560 043463 CTSD 


-001- 


26 






STL 


R7,MSFPR0G 












-001- 


27 


K_ 


— 





__. 


SE6. NUMBER-4. 


0130364 










31 






TRBL 


JK10,JK11,JK12,JK13 










-001- 


32 


n 


TBL 


0204 














-001- 


33 


H 


TEST 2 














-001- 


34 


Hi 


SEGMENT 4 






■' '" 








-001- 


35 


n 


PR 


CTAPM 














-001- 


36 


» 


















-001- 


37 


tt 


EXPEC 












-001- 


38 


n 


)GN 


TAPE 2 04 R9 R10 R11 












-001- 


39 


tt 


















-001- 


40 


tt 




MTC 


68-31 JK10 BUFFER 


UNIT CIRCUIT 










-001- 


41 


tt 




MTC 


68-29 JK11 BUFFER 


UNIT CIRCUIT 










-001- 


42 


>t 




MTC 


68-28 JK12 BUFFER 


UNIT CIRCUIT 










-001- 


43 


tt 




MTC 


68-27 JK13 BUFFER 


UNIT CIRCUIT 










-001- 


44 


tt 


















-001- 


45 


tt 


















-001- 


46 


tt 


















-001- 


47 


n 


TBL 


1204 














-001- 


48 


tt& 


TEST 2 














-001- 


49 


n 


SEGMENT 4 






COMMON TAPE MAINTENANCE 
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B07 


TDC DIAGNOSTIC 


PROGRAM. 








9:34:51 2/07/81 **** 


TEST 2 BUFFER 


UNIT TEST 








CTAPM W77D 


t 




-001- 


01 


#8 PR CTAPM 






-001- 


02 


1 








-001- 


03 


§ 


EXPECTED OUTPUT MESSAGE. 






-001- 


04 


If 


DGN TAPE 1 2 04 R9 R10 R11 






-001- 


05 


» 








-002- 


06 


H 


MTC 60-31 JK10 BUFFER UNIT CIRCUIT 






-002- 


07 


i 


MTC 60-29 JK11 BUFFER UNIT CIRCUIT 






-002- 


08 


H 


MTC 60-28 JK12 BUFFER UNIT CIRCUIT 






-002- 


0? 


# 


MTC 60-27 JK13 BUFFER UNIT CIRCUIT 






-001- 


10 


§ 








-001- 


11 


f 


SEGMENT 4 DESCRIPTION. 






-001- 


12 


tf 










13 


i 


A PARTIALLY LOADED BUFFER RESULTING FROM DATA SHIFTING OFF 








14 


If 


OF A PERIPHERAL DEVICE INTO THE BUFFER RESULTS IN AN AUTOMATIC 








15 


If 


RIGHT ADJUSTMENT OF THE DATA BT THE STUFF FUNCTION. THE STUFF 








16 


If 


FUNCTION WIL'. ALSO RAISE THE BR FLAG TO INDICATE THAT A BUFFER 








17 


If 


REQUIRES SERVICING. AN ALL ONES PATTERN IS SHIFTED INTO THE 1ST 








18 


n 


32 WORDS OF EACH BUFFER FOR THIS TE?T. THE BUFFER IS SWITCHED 








19 


n 


ON-LINE (CONNECTED TO THE TAPE DECK) AND A STUFF FUNCTION 








20 


§ 


INITIATED. 








21 


n 


THIS SEGMENT WILL LOAD, SWITCH, AND INITIATE THE STUFF AND CHECK 








22 


n 


THE BR FLAG SETTING. 


. 






23 


Hi 


TBLEND 


0130364 02 000543 003441 177777 




27 




LI R2, 0(177777) * NEW PATTERN 


0130366 






28 


LODO 


0130366 






29 




CALL L0D1HLF # LOAD BUFFER 


0130366 02 00054S 


137020 132076 0132076 


-001- 


30 




BSA L0D1HLF 


0130370 02 000547 


155631 0130221 




31 




BNC ERRMSGPOX 


0130371 02 000550 


003641 140013 




32 




LI R10,BSWB U SWITCH BUFFERS 


0130373 






33 




CALL SENDMIOM 


0130373 02 000552 


037020 132064 0132064 


-001- 


34 




BSA SENDMIOM 


0130375 02 000554 


124275 




35 




TBN R11,S(ACTIV) It HAVE BOTH BEEN LOADED? 


0130376 02 000555 


055770 0130366 




36 




BNC LODOTH 








37 


* 


AT THIS POINT BUFFER 1 IS ACTIVE. 








38 


1 


SET UP COMPARE CONSTANTS FOR FURTHER BUFFER TESTS. 


0130377 02 000556 


003461 122413 




39 




LI R3,BUFDEV+M(FILL)*M(ACTIV)+M(L0DST)+M(RDT) 


01 "?401 02 000560 


003501 002613 




40 




LI R4,BUFDEV+M(L0DST)+M(RDY)+M(BR) 


0130403 02 000562 


003521 002413 




41 




LI R5,BUFDEV+M(L0DST)+M(RDY) 


0130405 






42 


REFI 


0130405 02 000564 


103641 060013 




43 




LI R10,BFILL ISEND FILL ORDER TO RIGHT ADJUST BUFFER DATA. 


0130407 






44 




CALL SENDMIOM 


0130407 02 000566 


037020 132064 0132064 


-001- 


45 




BSA SENDMIOM 


0130411 02 000570 


117263 171777 




46 




CRM R11,R3,-(M(UNST)+M(L0DST)) # DID FILL GO ACTIVE? 


0130413 02 000572 


055606 0130221 




47 




BNC ERRMSGPOX 


0130414 02 000573 


022075 




48 




ZBN R3,S(ACTIV) # PREPARE FOR NEXT LOOP. 


0130415 






49 




CALL WAIT1 If STALL TO ALLOW FILL TO COMPLETE. 


COMMON TAPE MAINTENANCE 








PR-1C958-50 
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• • 






TDC DIAGNOSTIC PROGRAM. 

TEST 2 BUFFER UNIT TEST 

0130415 02 000574 037020 132224 0132224 
0130417 02 000576 103641 000013 

0130421 

0130421 02 000600 037020 132064 0132064 

0130423 02 000602 117264 171777 

0130425 02 000604 026115 

0130426 02 000605 055573 0130221 

0130427 02 000606 003205 

0130430 02 000607 010614 

0130431 02 000610 016170 000360 
0130433 02 000612 034560 043463 CTSD 



-001- 



01 
02 



-001- 



04 
05 
06 
07 
08 
09 

-001- 10 

-001- 11 

-001 ■ 

-001 ■ 

-001 • 



12 
13 
14 



_£SL 



BSA 
LI 

CALL 

BSA 

CRM 

SBN 

BNC 

SEGADD 

LN 

RLN 

IRM 

STL 



9:34:51 2/07/81 **** 
CTAPM W77D 



WAIT1 
R10,BSTAT 



U SEND STATUS TO ASSURE THAT BR IS SET AND 
BUFFER SWITCHED. 
SENDMIOM 
SENDMIOM 

R11,R4,-(M(UNST)+M(L0DST)> H DID BUFFER SWITCH? 
R4,S(ACTIV) U GET READY FOR NEXT LOOP. 
ERRMSGPOX 



R8,CHKP0INT 

R8,4 

R7,R8, 0(360) 

R7,MSFPR0G 



A/DISPLAY SEGMENT IN BITS 4-7. 



# SEG. NUMBER=5. 



0130435 



-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-002- 
-002- 
-002- 
-002- 
-001- 
-001- 
-001- 



18 TRBL JK10,JK11,JK12,JK13 

19 HI TBL 0205 

20 #8 TEST 2 

21 n SEGMENT 5 

22 Hi PR CTAPM 

23 H 
EXPECTED OUTPUT MESSAGE. 

DGN TAPE 2 05 R9 R10 R11 



24 
25 
26 
27 
28 
29 
30 
31 
32 
33 



MTC 68-31 JK10 BUFFER UNIT CIRCUIT 
MTC 68-29 JK11 BUFFER UNIT CIRCUIT 
MTC 68-28 JK12 BUFFER UNIT CIRCUIT 
MTC 68-27 JK13 BUt-FER UNIT CIRCUIT 



34 #8 TBL 1205 

35 HI TEST 2 

36 #8 SEGMENT 5 

37 HI PR CTAPM 
H 

EXPECTED OUTPUT MESSAGE. 
DGN TAPE 1 2 05 R9 R10 R11 



38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



MTC 60-31 JK10 BUFFER UNIT CIRCUIT 

MTC 60-29 JK11 BUFFER UNIT CIRCUIT 

MTC 60-28 JK12 BUFFER UNIT CIRCUIT 

MTC 60-27 JK13 BUFFER UNIT CIRCUIT 

SEGMENT 5 DESCRIPTION. 

THE SETTING OF THE BR FLAG FROM THE PREVIOUS SEGMENT (SEE PREVIOUS 



COMMON TAPE MAINTENANCE 

9:34:51 2/07/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET 
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D07 



TDC DIAGNOSTIC PROGRAM. 
TEST 2 BUFFER UNIT TEST 



0130435 



01 
02 
03 
04 
05 
06 
0? 



9:34:51 2/07/81 **** 
CTAPM W77D 



# SEGMENT DESCRIPTION) SHOULD HAVE BEEN DETECTED BY THE INTERRUPT 

* SERVICING THE TDC. THIS SEGMENT WILL VERIFY THIS OCCURRENCE AND 

H CHECK THAT THE BR FLAG CAN BE RESET BY THE CLEAR BR FLAG COMMAND. 

II NOTE BESIDES THE ABOVE CIRCUIT PACKS BEING SUSPECT FOR THIS 
n FAILURE, ANY INTERRUPT CONNECTIONS BETWEEN THE TDC AND CC 
It SHOULD BE CHECKED. 



08 Hi TBLEND 



0130435 02 000614 051005 

0130436 02 000615 055563 0130221 

0130437 02 000616 003641 020013 
0130441 

0130441 02 000620 037020 132064 0132064 
0130443 02 000622 117265 171777 

0130445 02 000624 026135 

0130446 02 000625 055553 0130221 

0130447 

0130447 02 000626 037020 132122 0132122 

0130451 02 000630 155550 0130221 

0130452 02 000631 024275 

0130453 02 000632 055732 0130405 

0130454 02 000633 003206 

0130455 02 000634 010614 

0130456 02 000635 016170 000360 
0130460 02 000637 034560 043463 CTSD 



-001- 



-001- 



-001- 
-001- 
-001- 
-001- 
-001- 



12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 « 



TBS 

BNC 

LI 

CALL 

BSA 

CRM 

SBN 

BNC 

CALL 

BSA 

BNC 

TBH 

BNC 

SEGADC. 

LN 

RLN 

IRM 

STL 



N(INTSBR)<RAO),S(INTSBR) K DID INTERRUPT COME IN. 

ERRMSGPOX 

R10,BCLRBRF # CLEAR BR 

SENDMIOM 

SENDMIOM 

R11,R5,-'(M(UNST)+M(L0DST)) » DID BR RESET? 

R5,S(ACTIV) U GET READY FOR NEXT LOOP. 



ERRMSGPOX 

UNCHECK 

UNCHECK 

ERRMSGPOX 

R11,S(ACTIV) 

REFILL 

R8,CHKP0INT 

R8,4 

R7,R8, 0(360) 

R7,MSFPR0G 



» UNLOAD AND CHECK RESULTS. 
U HAS THIS TEST COMPLETED? 

^DISPLAY SEGMENT IN BITS 4-7. 
SEG. NUMBER-6. 



0130462 



34 



TRBL 



-001- 35 *l TBL 0206 



-001 

-001 

-001 

-001 

-001 

-001 

-001 

-001 

-001- 44 

-001- 45 

-001- 46 



36 Hi TEST 2 

37 #8 SEGMENT 6 

38 #8 PR CTAPM 



39 
40 
41 
42 
43 



JK11 



EXPECTED OUTPUT MESSAGE. 
DGN TAPE 2 06 R9 R10 R11 

MTC 68-29 JK11 BUFFER UNIT CIRCUIT 



-001- 47 #8 TBL 1206 
-001- 48 #8 TEST 2 
-001- 49 #8 SEGMENT 6 



COMMON TAPE MAINTENANCE 
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E07 


1 


TDC DIAGNOSTIC PROGRAM. 


9:34:51 2/07/81 **** 






TEST 2 BUFFER UNIT TEST 


CTAPM W77D 






-001- 


01 M PR CTAPM 






-001- 


02 * 






-001- 


03 # EXPECTED OUTPUT MESSAGE. 






-001- 


04 K DGN TAPE 1 2 06 R9 R10 R11 






-001- 


05 n 






-002- 


06 * MTC 60-29 JK11 BUFFER UNIT CIRCUIT 






-001- 


07 n 






-001- 


08 # SEGMENT 6 DESCRIPTION. 






-001- 


09 n 

10 # THE FAILURE TO SERVICE THE TWO 1024 BIT BUFFERS IN AN ADEOUATE 

11 # TIME SHOULD RESULT IN AN OVERFLOW CONDITION. BOTH BUFFERS BEING 

12 # FULL WITH ADDITIONAL DATA STILL COMING OFF OF THE TAPE UNXT WILL 

13 n CAUSE THE BUFFER OVERFLOW STATUS BIT TO BE SET. THIS SEGMENT 

14 # WILL USE THE BUFFER FILL ORDER TO SIMULATE THIS CONDITION. BR SHOULD 

15 # BECOME SET AT THE COMPLETION OF THE FIRST BUFFER FILL ORDER AND 

16 If BUFFER OVERFLOW SHOULD BECOME SET AFTER THE SECOND FILL ORDER. 

17 n THIS IS BECAUSE OF THE BR FLAG REMAINING SET AFTER THE FIRST FILL ORDER. 

18 #8 TBLEND 






0130462 02 000641 003101 


22 LN R4,1 






0130A63 


23 FLLAGN 






0130463 02 000642 103641 060013 


24 LI R10,BFILL 






0130465 


25 CALL SENDMIOM 






0130465 02 000644 037020 132064 0132064 -001- 


26 BSA SENDMIOM 






0130467 


27 CALL WAIT1 






0130467 02 000646 137020 132224 0132224 -001- 


28 BSA WAIT1 

29 U ISSUE THE SECOND FILL ORDER IF R4 IS NOT ZERO. 






0130471 02 000650 136100 130463 0130463. 


30 BX R4, FLLAGN 






0130473 02 000652 003253 


31 LN R10,BSTAT 






0130474 


32 CALL SENDMIOM 






0130474 02 000653 037020 132064 0132064 -001- 


33 BSA SENDMIOM 

34 n CHECK THAT BOTH BOFL AND BR ARE SET. 






0130476 02 000655 103665 044613 


35 CI R11,BUFDEV+M(BR)+«(B0FL)+M<UNST)+H(R0Y) « IS STATUS CORRECT? 




i 




36 BNC ERRMSGPOX 

37 SEGADD 




1 . 


0130501 02 000660 003207 -001- 


38 LN R8,CHKP0INT 






0130502 02 000661 010614 -001- 


39 RLN R8,4 






0130503 02 000662 016170 000360 -001- 


40 IRM R7,R8,0(360) ^DISPLAY SEGMENT IN BITS 4-7. 






0130505 02 000664 034560 043463 CTSD -001- 


41 STL R7,MSFPR0G 






-001- 


42 « SEG. NUMBERS. 






COHMON TAPE MAINTENANCE 


PR-1C958-50 
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TDC DIAGNOSTIC PROGRAM. 
TEST 2 BUFFER UNIT TEST 
0130507 



-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-002- 
-002- 
-002- 
-001- 
-001- 
-001- 



F07 



01 TRBL JK10,JK11,JK12 

02 Hi TBL 0207 

03 #8 TEST 2 

04 #8 SEGMENT 7 

05 08 PR CTAPM 
I 

EXPECTED OUTPUT MESSAGE. 
DGN TAPE 2 07 R? R10 R11 



9:34:51 2/07/01 **** 
CTAPM W77D 



MTC 68-31 JK10 BUFFER UNIT CIRCUIT 
MTC 68-29 JK11 BUFFER UNIT CIRCUIT 
MTC 68-28 JK12 BUFFER UNIT CIRCUIT 



16 08 TBL 1207 

17 #& TEST 2 

18 *8 SEGMENT 7 

19 HI PR CTAPM 

20 n 
EXPECTED OUTPUT MESSAGE. 

DGN TAPE 1 2 07 R9 R10 R11 



MTC 60-31 JK10 BUFFER UNIT CIRCUIT 
MTC 60-29 JK11 BUFFER UNIT CIRCUIT 
MTC 60-28 JK12 BUFFER UNIT CIRCUIT 

SEGMENT 7 DESCRIPTION. 

THE PREVIOUS SEGMENT HAS SET UP A BUFFER OVERFLOW ERROR IN THF TDC. 
THIS SEGMENT HILL TEST THE BUFFER INITIALIZATION ORDER'S ABILITY TO 
RESET THE BUFFER UNIT TO AN IDLE STATE. 



33 #8 TBLEND 



0130507 02 000666 003641 160013 

0130511 

0130511 02 000670 037020 132064 0132064 

0130513 02 000672 103665 020413 

0130515 02 000674 055504 0130221 

0130516 02 000675 003210 

0130517 02 000676 010614 

0130520 02 000677 016170 000360 
0130522 02 000701 034560 043463 CTSD 



37 

38 

-001- 39 

40 

41 

42 

-001- 43 

-001- 44 

-001- 45 

-001- 46 

-001- 47 » 



LI 

CALL 

OSA 

CI 

BNC 

SEGADD 

LN 

RLN 

IRM 

STL 



R10,BINIT # SEND INIT TO RESET BUFFER UNIT. 

SENDMIOM 

R11?BUFDEV+M(ACTIV)+M(RDY> U HAS BINIT EXECUTED PROPERLY. 

ERRMSGPOX 



R8,CHKP0INT 
R8,4 

R7,R8,0(360) 
R7,MSFPR0G 



^DISPLAY SEGMENT IN BITS 4-7. 
SEG. NUMBER=8. 



COMMON TAPE MAINTENANCE 
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TDC DIAGNOSTIC PROGRAM. 
TEST 2 BUFFER UNIT TEST 
0130524 



9:34:51 2/07/81 **** 
CTAPM W77D 



-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-002- 
-002- 
-002- 
-002- 
-001- 
-001- 
-001- 



01 

02 IKS 

03 n 

04 n 

05 n 



TRBL 
TBL 0208 
TEST 2 
SEGMENT 8 
PR CTAPM 



JK10,JK11,JK12,JK13 



06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 



EXPECTED OUTPUT MESSAGE. 
DGN TAPE 2 08 R9 R10 R11 

MTC 68-31 JK10 BUFFER UNIT CIRCUIT 

MTC 68-29 JK11 BUFFER UNIT CIRCUIT 

MTC 68-28 JK12 BUFFER UNIT CIRCUIT 

MTC 68-27 JK13 BUFFER UNIT CIRCUIT 



17 #8 

18 n 

19 #8 

20 #8 

21 H 



22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



TBL 1208 
TEST 2 
SEGMENT 8 
PR CTAPM 

EXPECTED OUTPUT MESSAGE. 
DGN TAPE 1 2 08 R9 R10 R11 

MTC 60-31 JK10 BUFFER UNIT CIRCUIT 

MTC 60-29 JK11 BUFFER UNIT CIRCUIT 

MTC 60-28 JK12 BUFFER UNIT CIRCUIT 

MTC 60-27 JK13 BUFFER UNIT CIRCUIT 

SEGMENT 8 DESCRIPTION. 



THIS SEGMENT WILL CHECK OUT THE RESETTING OF SHIFT COUNTERS. A BUFFER WILL 
BE LOADED HALF WAY. A BUFFER INIT ORDER WILL BE SENT. THIS SHOULD 
RESET THE COUNTER. ANOTHER WORD WILL BE LOADED (CHECKER PATTERN) 
AND A STUFF ORDER SENT. THEN AN UNLOAD WILL BE DONE TO CHECK THAT 
THE 2ND PATTERN (1 WORD) IS THE FIRST WORD TO BE UNLOADED FROM THE BUFFER. 
37 #8 TBLEND 



0130524 

0130524 02 000703 037020 132076 C132076 -001- 

0130526 02 000705 155473 0130221 

0130527 02 000706 003641 160013 
0130531 

0130531 02 000710 037020 132064 0132064 -001- 

0130533 02 000712 103641 042013 

0130535 



41 # R2 SHOULD BE ALL ONES FOR THIS LOAD OPERATION. 



42 


CALL 


L0D1HLF 


43 


BSA 


L0D1HLF 


44 


BNC 


ERRMSGPOX 


45 


LI 


R10/8INIT 


46 


CALL 


SENDMIOM 


47 


BSA 


SENDMIOM 


48 


LI 


R10,ESLD0N 


49 


CALL 


SENDMIOM 



U PRIME BUFFER FOR CHECK 

# ATTEMPT TO RESET BUFFER COUNTER. 

H PREPARE BUFFER FOR LOAD OPERATION 



COMMON TAPE MAINTENANCE 
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A08 



TDC DIAGNOSTIC PROGRAM. 
TEST 2 BUFFER UNIT TEST 



9s34:51 



2/07/81 **** 
H77D 



0130535 


02 


000714 


037020 


132064 


0132064 


-001- 


01 


BSA 


SENDMIOM 


0130537 


02 


000716 


103641 


125252 






02 


LI 


R10 / 0(125252) 


0130541 














03 


CALL 


SENDIO 


0130541 


02 


000720 


073034 






-001- 


04 


BSAI 


SXENDIO 


0130542 


02 


000721 


155457 




0130221 




05 


BNC 


ERRMSGPOX 


0130543 


02 


000722 


003641 


050013 






06 


LI 


R10,BSTF0N 


0130545 














07 


CALL 


SENDMIOM 


0130545 


02 


000724 


037020 


132064 


0132064 


-001- 


08 


BSA 


SENDMIOM 


0130547 














09 


CALL 


HAITI 


0130547 


02 


000726 


137020 


132224 


0132224 


-001- 


10 


BSA 


HAITI 


0130551 


02 


000730 


103641 


044013 






11 


LI 


R10,BSUNLD0N 


0130553 














12 


CALL 


SENDMIOM 


0130553 


02 


000732 


037020 


132064 


0132064 


-001- 


13 


BSA 


SENDMIOM 


0130555 


02 


000734 


103641 


120013 






14 


LI 


R10,BCLR0CN 


0130557 














15 


CALL 


SENDMIOM 


0130557 


02 


000736 


037020 


132064 


0132064 


-001- 


16 


BSA 


SENDMIOM 


0130561 


02 


000740 


103641 


100007 






17 


LI 


R10,SD 


0130563 














18 


CALL 


SENDMIOM 


0130563 


02 


000742 


037020 


132064 


0132064 


-001- 


19 


BSA 


SENDMIOM 


0130565 


02 


000744 


103665 


125252 






20 


CI 


R11,0(125252) 


0130567 


02 


000746 


055432 


______ 


0130221 




21 


BNC 


ERRMSGPOX 


0130570 














22 


CONTRTN 




0130570 


02 


000747 


161045 








23 


SBS 


N(PASSXRAO), 


0130571 














24 


RETURN 


2 


0130571 


02 


000750 


056462 






-001- 


25 


BTSAN 


2 



CTAPM 



H LOAD 1 HORD HITH CHECKER PATTERN. 

n SUBROUTINE SENDIO IS IN PROGRAM CSYSUB 

U FORCE STUFF OPERATION. 



* SET \iP UNLOAD OPERATION 



# UNLOAD TEST HORD FOR VERIFICATION. 






COMMON TAPE MAINTENANCE 



1 ■•-''. 






■ 


. 




- 
















PR-1C958-50 
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BOS 


TDC DIAGNOSTIC PROGRAM. 






9:34:51 2/07/81 **** 


TEST 3 TAPE UNIT CONTROLLER TEST 






CTAPN W77D 


0130572 




01 


CONTROL 






02 


K THIS IS THE TAPE UNIT CONTROLLER TEST. ITS RESPONSIBILITY IS TO 






03 


* ISOLATE ANY FAILURES BETWEEN THE TAPE DECK AND THE TAPE DECK CONTROL 






04 


H WITHIN THE TDC. IT WILL OPERATE WITH THE TAPE DECK UNSELECTED. 


0000003 




05 


TEST SET TEST+1 


0130572 02 000751 103163 




06 


LN R7,3 U TEST NUMBER 






07 


SEGADDI 


0130573 02 000752 CJ4560 043463 CTSO 


-001- 


08 


STL R7,MSFPR0G ^DISPLAY NUMBER ON LOW 4 BITS OF SSP. 


0130575 


-001- 


09 
13 


* ,.. SEG. NUMBERS). 


TRBL JK7,JK16,JK18 




-001- 


14 


n TBL 0300 




-001- 


15 


Hi TEST 3 




-001- 


16 


H& SEGMENT 




-001- 


17 


Hi PR CTAPM 




-001- 


18 


H 


• 


-001- 


19 


» EXPECTED OUTPUT MESSAGE. 




-001- 


20 


U DGN TAPE 3 00 R9 R10 R11 




-001- 


21 


# 




-001- 


22 


* MTC 68-32 JK7 SERIAL PERIPHERAL INTERFACE CIRCUIT 




-001- 


23 


If MTC 68-22 JK16 TAPE UNIT CONTROLLER 




-001- 


24 


H MTC 68-20 JK18 TAPE UNIT CONTROLLER 




-001- 


25 


n 




-001- 


26 


» 




-001- 


27 







-001- 


28 


#» TBL 1300 




-001- 


29 


Hi TEST 3 




. -001- 


30 


Mi SEGMENT 




-001- 


31 


Hi PR CTAPM 




-001- 


32 


H 




-001- 


33 


H EXPECTED OUTPUT MESSAGE. 




-001- 


34 


H DGN TAPE 1 3 00 R9 R10 R11 




-001- 


35 


H 




-002- 


36 


H MTC 60-32 JK7 SERIAL PERIPHERAL INTERFACE CIRCUIT 




-002- 


37 


H MTC 60-22 JK16 TAPE UNIT CONTROLLER 




-002- 


38 


* MTC 60-20 JK18 TAPE UNIT CONTROLLER 




-001- 


39 


ft 




-001- 


40 


ft SEGMENT DESCRIPTION. 




-001- 


41 


ft 






42 


ft THIS SEGMENT ATTEMPTS TO DESELFCT THE TAPE TRANSPORT FROM THE 






43 


ft TAPE CONTROLLER THROUGH THE USE OF THE TAPE MAINTENANCE STOP ORDER. 






44 


ft THE CONTENTS OF R11 SHOULD INDICATE THIS STATE. 






45 


Hi TBLEND 


COMMON TAPE MAINTENANCE 






PR-1C958-50 


9:34:51 2/07/81 TRADE SECRET - 
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TPC DIAGNOSTIC PROGRAM. 

TEST 3 TAPE UNIT CONTROLLER TEST 

0130375 02 000754 003641 000215 
0130577 * 

0130577 02 000756 037020 132064 0132064 
0130601 02 000760 103401 000115 
0130603 02 000762 017013 007777 

0130605 02 000764 055414 0130221 

0130606 02 000765 003201 

0130607 02 000766 010614 

0130610 02 000767 016170 000360 
0130612 02 000771 034560 043463 CTSD 



-001- 



01 
02 
03 
04 
05 
06 
07 

-001- 08 

-001- 09 

-001- 

-001- 

-001- 



10 

11 

12 



LI 

CALL 

BSA 

LI 

CRN 

BNC 

SEGADD 

LN 

RLN 

IRM 

STL 



9:34:51 2/07/81 **** 
CTAPM H770 



n ATTEMPT TO DESELECT THE TAPI TRANSPORT 



R10,TMSTOP 

SENDMIOK 

SENDMIOM 

RO,M(MSTP)+TUCDEV # CHECK IP PRIMARY REPLY IS CORRECT. 

RO,R11,M(DEVICODE)+M(MSTP)+M(TPR)+M(COMD> 

ERRMSGPOX 



R8,CHKP0INT 

R8,4 

R7,R8, 0(360) 

R7,MSFPR0G 



^DISPLAY SEGMENT IN BITS 4-7. 
SEG. NUMBER-1. 



0130614 



-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-002- 
-002- 
-002- 
-002- 
-001- 
-001- 
-001- 



16 
17 
18 



TRBL 
#8 TBL 0301 
U TEST 3 

19 U SEGMENT 1 

20 Hi, PR CTAPM 



JK16,JK17,JK18,JK19 



EXPECTED OUTPUT MESSAGE. 
DGN TAPE 3 01 R9 R10 R11 

MTC 68-22 JK16 TAPE UNIT CONTROLLER 

MTC 68-21 JK17 TAPE UNIT CONTROLLER 

MTC 68-20 JK18 TAPE UNIT CONTROLLER 

MTC 68-19 JK19 TAPE UNIT CONTROLLER 



H TBL 1301 
Hi TEST 3 

34 #8 SEGMENT 1 

35 #8 PR CTAPM 



36 
37 
38 
J? 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



EXPECTED OUTPUT MESSAGE. 
DGN TAPE 1 3 01 R9 R10 R11 

MTC 60-22 JK16 TAPE UNIT CONTROLLER 

MTC 60-21 JK17 TAPE UNIT CONTROLLER 

MTC 60-20 JK18 TAFE UNIT CONTROLLER 

MTC 60-19 JK19 TAPE UNIT CONTROLLER 

SEGMENT 1 DESCRIPTION. 

A CHECK OF THE STATUS OF THE TAPE CONTROLLER IS DONE 
USING THE SECONDARY STATUS ORDER. THE EXPECTED REPLY IS 
IDLE AND IN THE MAINTENANCE STOP MODE. WRITE ENABLE MUST 



COMMON TAPE MAINTENANCE 

9:34:51 2/07/81 TRADE SECRET 



SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPM 
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TDC DIAGNOSTIC PROGRAM. 

TEST 3 TAPE UNIT CONTROLLER TEST 



DOS 



9:34:51 2/07/81 **** 
CTAPM W77D 



01- # BE ACTIVE, WHICH REQUIRES A CARTRIDGE TO BE INPLACE AND 

02 # NOT IN THE SAFE (WRITE PROTECTED) POSITION. R11 IS REPLY. 

03 #& TBLEND 



0130614 02 000773 003641 002015 
0130616 



07 

08 



0130616 02 
0130620 02 
0130622 02 
0130624 02 

0130626 02 

0130627 02 
0130630 02 
0130632 02 



000775 037020 132064 0132064 -001- 10 



000777 103401 010115 
001001 017013 010115 
001003 050400 130221 0130221 

001005 003202 

001006 010614 

001007 016170 000360 
001011 034560 043463 CTSD 



11 
12 
13 
14 

-001- 15 

-001- 

-001- 

-001- 



16 
17 

18 



LI 
CALL 

BSA 

LI 

CRM 

BNCL 

SEGADD 

LN 

RLN 

IRM 

STL 



R10,TSTAT 

SENDMIOM # MAKE SURE ALL STATUS BITS REFLECT MAINTENAN 

CE MODE, 
SENDMIOM 

RO,TUCDEV+M(WENBL)+M(MTCE) 

R0,R11,M(WENBL)+M(MTCE)+TUCDEV # CHECK FOR CORRECT STATUS. 
ERRMSGPOX 



-001- 19 # 



R8,CHKP0INT 

R8,4 

R7,R8, 0(360) 

R7,MSFPR0G 



^DISPLAY SEGMENT IN BITS 4-7. 



SEG. NUMBER-2. 



0130634 . 



-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-002- 
-002- 
-002- 



JK16,JK17,JK18,JK19 



23 TRBL 

24 « TBL 0302 

25 #» TEST 3 

26 HI SEGMENT 2 

27 #8 PR CTAPM 

n 

EXPECTED OUTPUT MESSAGE. 
DGN TAPE 3 02 R9 R10 R11 



MTC 68-22 JK16 TAPE UNIT 
MTC 68-21 JK17 TAPE UNIT 
MTC 68-20 JK18 TAPE UNIT 
MTC 68-19 JK19 TAPE UNIT 



CONTROLLER 
CONTROLLER 
CONTROLLER 
CONTROLLER 



39 #8 TBL 1302 

40 #8 TEST 3 

41 HI SEGMENT 2 

42 #8 PR CTAPM 
It 

EXPECTED OUTPUT MESSAGE. 
DGN TAPE 1 3 02 R9 R10 R11 



43 
44 
45 
46 
47 
48 
49 



MTC 60-22 JK16 TAPE UNIT 
MTC 60-21 JK17 TAPE UNIT 
MTC 60-20 JK18 TAPE UNIT 



CONTROLLER 
CONTROLLER 
CONTROLLER 



COMMON TAPE MAINTENANCE 

9:34:51 2/07/81 TRADE SECRET - SEE TRADE SE. _T RESTRICTIVE NOTICE ON COVER SHEET 



CTAPM 



PR-1C958-50 
ISSUE 06 PAGE 



51 






















EOS 


TOC DIAGNOSTIC PROGRAM. 








9:34:51 2/07/81 **** 


TEST 3 TAPE UNIT CONTROLLER TEST 








CTAPM H77D 




-002- 


01 


f 


MTC 60-19 JK19 TAPE UNIT CONTROLLER 




-001- 


02 


f 


* 


. 


-001- 


03 


f 


SEGMENT 2 DESCRIPTION. 


i 


-001- 


04 


f 




.' 




05 


f 


MOST TAPE UNIT CONTROLLER ORDERS ARE SENT TO THE TAPE CONTROLLER. 






06 


1 


EACH RESPONSE IS CHECKED FOR CORRECTNESS. RIO CONTAINS THE 


* 




07 


f 


COMMAND AND R11 HILL CONTAIN THE RESPONSE. THE TRANSPORT IS 


■ 




08 


n 


DESELECTED AT THIS TIME AND NO TAPE MOTION SHOULD BE SEEN. 






09 


n TBLEND 


0130634 02 001013 031400 131737 0131737 




13 




LAL R0,TDCORD-1,RA1 


0130636 02 001015 003057 




14 




LN R2,15 






15 


9 


THIS ROUTINE HILL EXECUTE MOST OF THE TAPE DECK AND TAPE UNIT 






16 


9 


CONTROLLER ORDERS. EACH PRIMARY RESPONSE IS VERIFIED FOR ITS 


' 




17 


* 


CORRECTNESS. 


0130637 




18 


ORDON 


0130637- 




19 




CALL WAIT1 


0130637 02 001016 137020 132224 0132224 


-001- 


20 




BSA HAITI 


0130641 02 001020 141641 




21 




LA R10,1(RA1) It SET UP ORDER 


0130642 




22 




CALL SENDMIOM 


0130642 02 001021 037020 132064 0132064 


-001- 


23 




BSA SENDMIOM 


0130644 02 001023 141401 




24 




LA R0,1<RA1) n GET EXPECTED REPLY. 


0130645 02 001024 020260 




25 




CR R11,R0 « VERIFY RESPONSE. 


0130646 02 001025 050400 130221 0130221 




26 




BNCL ERRMSGPOX 


0130650 02 001027 003641 000015 




27 




LI R10,TST0P n STOP MUST BE SENT TO ASSURE NEXT ORDERS 

ACCEPTANCE. 


0130652 




29 




CALL SENDMIO 


0130652 02 001031 037020 111050 CSYSUB 


-001- 


30 




BSA SENDMIO 


0130654 02 001033 136040 130637 0130637 




31 
32 




BX R2, ORDON 
SEGADD 


0130656 02 001035 003203 


-001- 


33 




LN R8,CHKP0INT 


0130657 02 001036 010614 


-001- 


34 




RLN R8,4 


0130660 02 001037 016170 000360 


-001- 


35 




IRM R7,R8, 0(360) ^DISPLAY SEGMENT IN BITS 4-7. 


0130662 02 001041 034560 043463 CTSD 


-001- 


36 




STL R7,MSFPR0G 




-001- 


37 


# 


SEG. NUMBER=3. 






38 


H 


THE LAST ITEM CHECKED BEFORE TRE MAINTENANCE MODE IS TORN DOHN 






39 


n 


HILL BE THE CRC HARDHARE. A SINGLE 16 BIT HORD SHIFTED THROUGH 






40 


9 


THE CRC HARDHARE IS SUFFICIENT TO TEST OUT THE ENTIER SHIFT REGISTER. 


• 




41 


9 


A HRITE OPERATION IS SIMULATED TO CAUSE THE CONSTANT TO BE SHIFTED INTO 


• 




42 


9 


THE REGISTER. IT IS ASSUMED THAT THE CRC REGISTER IS ZERO AT THIS 








43 


n POINT SINCE THE CLEAR CRC ORDER HAS SENT ABOVE. 


COMMON TAPE MAINTENA 


«E 








PR-1C958-50 
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F08 






TDC DIAGNOSTIC PROGRAM. 
TEST 3 TAPE UNIT CONTROLLER TEST 
0130664 



-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-002- 
-002- 
-002- 
-002- 
-001- 
-001- 
-001- 



9:34:31 2/07/81 **** 
CTAPM W77D 



JK10,JK11,JK12,JK13 



01 TRBL 

02 U TBL 0303 

03 #8 TEST 3 

04 #8 SEGMENT 3 

05 Ki PR CTAPM 
§ 

EXPECTED OUTPUT MESSAGE. 
DGN TAPE 3 03 R? R10 R11 



MTC 68-31 JK10 BUFFER UNIT CIRCUIT 
MTC 68-29 JK11 BUFFER UNIT CIRCUIT 
MTC 68-28 JK12 BUFFER UNIT CIRCUIT 
MTC 68-27 JK13 BUFFER UNIT CIRCUIT 



17 Hi TBL 1303 

18 Mi TEST 3 

19 #8 SEGMENT 3 

20 H PR CTAPM 

21 It 
EXPECTED OUTPUT MESSAGE. 
C.'J TAPE 1 3 03 R9 R10 R11 



22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



MTC 60-31 JK10 BUFFER UNIT CIRCUIT 

MTC 60-29 JK11 BUFFER UNIT CIRCUIT 

MTC 60-28 JK12 BUFFER UNIT CIRCUIT 

MTC 60-27 JK13 BUFFER UNIT CIRCUIT 

SEGMENT 3 DESCRIPTION. 



IT 



THIS IS A SETUP SEGMENT FOR TESTING THE CRC CIRCUITRY. 

SETS THE BUFFER UNIT UP TO ACCEPT DATA. 

NOTE! 

FAILURE OF THIS SEGMENT SHOULD PROMPT THE RUNNING OF THE BUFFER 

UNIT DIAGNOSTIC TEST. TEST 2. 



37 Hi TBLEND 



0130664 02 001043 003641 160013 

0130666 

0130666 02 001045 037020 132064 0132064 

0130670 02 001047 103641 042013 

C130672 

0130672 02 001051 037020 132064 0132064 

0130674 02 001053 103641 000035 

0130676 

0130676 02 001055 073034 



-001- 



41 
42 
43 
44 
45 

-001- 46 
47 
48 

-001- 49 



LI 

CALL 

B3A 

LI 

CALL 

BSA 

LI 

CALL 

BSAI 



R10,BINIT 

SENDMIOM 

SENDMIOM 

R10,BSLDON 

SENDMIOM 

SENDMIOM 

R10,0(35) 

SEND 10 

SXENDIO 



K CLEAN UP BUFFER UNIT FROM PREVIOUS TESTING. 

It SET UP THE LOAD STATE. 

U SEND CRC CHECK PATTERN. 

# SUBROUTINE SENDIO IS IN PROGRAM CSYSUB 



COMMON TAPE MAINTENANCE 
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608 



TDC DIAGNOSTIC PROGRAM. 

TEST 3 TAPE UNIT CONTROLLER TEST 



0130677 
0130701 
0130703 
0130703 
0130705 
0130707 
0130711 
0130711 
0130713 
0130713 
0130715 
0130717 
0130717 



02 001056 
02 001060 

02 001062 
02 001064 
02 001066 



150*00 
003641 

037020 
150400 
003641 



130221 
120013 

132064 
130221 
050013 



0130221 



0132064 
0130221 



02 001070 037020 132064 0132064 

0132224 



02 001072 
02 001074 



137020 
103641 



132224 
140013 



02 001076 037020 132064 0132064 



0130721 02 001100 103204 

0130722 02 001101 010614 

0130723 02 001102 016170 000360 
0130725 02 001104 034560 043463 CTSD 



0130727 



01 

02 

03 
-001- 04 

05 

06 

07 
-001- 08 

09 
-001- 10 

11 

12 
-001- 13 

14 
-001- 15 
-001- 16 
-001- 17 
-001- 18 
-001- 19 0. 



-001 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-002- 

-002- 

-002- 



BNCL 

LI 

CALL 

BSA 

BNCL 

LI 

CALL 

BSA 

CALL 

BSA 

LI 

CALL 

BSA 

SEGADD 

LN 

RLN 

IRM 

STL 



ERRMSGPOX 

R10,BCLR0CN 

SENDMIOM 

SENDMIOM 

ERRMSGPOX 

R10,BSTF0N 

SENDMIOM 

SENDMIOM 

WAIT1 

WAIT1 

R10,BSWB 

SENDMIOM 

SENDMIOM 

R8,CHKP0INT 

R8,4 

R7,R8, 0(360) 

R7,MSFPR0G 



9:34:51 2/07/81 **** 
CTAPM H770 

It ADJUST COUNTER FOR STUFF TO WORK 



n RIGHT ADJUST CONSTANT 

n SWITCH BUFFERS. 

^DISPLAY SEGMENT IN BIT<S 4-7. 
SEG. NUMBERS. 



23 TRBL 

24 #8 TBL 0304 

25 #% TEST 3 

26 #& SEGMENT 4 

27 #& PR CTAPM 



JK16,JK17,JK18,JK1? 



28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 



EXPECTED OUTPUT MESSAGE. 
DGN TAPE 3 04 R9 R10 R11 

MTC 68-22 JK16 TAPE UNIT 

MTC 68-21 JK17 TAPE UNIT 

MTC 68-20 JK18 TAPE UNIT 

MTC 68-19 JK19 TAPE UNIT 



CONTROLLER 
CONTROLLER 
CONTROLLER 
CONTROLLER 



39 M TBL 1304 

40 #8 TEST 3 

41 #& SEGMENT 4 

42 #& PR CTAPM 

n 

EXPECTED OUTPUT MESSAGE. 
DGN TAPE 1 3 04 R9 R10 R11 



43 
44 
45 
46 
47 
48 
49 



MTC 60-22 JK16 TAPE UNIT 
MTC 60-21 JK17 TAPE UNIT 
MTC 60-20 JK18 TAPE UNIT 



COMMON TAPE MAINTENANCE 
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CONTROLLER 






CONTROLLER 






CONTROLLER 
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HEET CTAPM 


ISSUE 06 PAGE 
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A09 



TDC DIAGNOSTIC PROGRAM. 








9:34:51 2/07/81 **** 


TEST 3 TAPE UNIT CONTROLLER TEST 








CTAPM W77D 




• 


-002- 


01 


* MTC 


60-19 JK19 TAPE UNIT CONTROLLER 






-001- 


02 


§ 








-001- 


03 


It SEGMENT 4 DESCRIPTION. 


, 




-001- 


04 


n 










05 


* THIS SEGMENT 


IS ENTERED WITH THE BUFFER UNIT LOADED AND READY 








06 


n TO SHIFT OUT 


A 16 BIT CHECK CONSTANT FOR CRC VERIFICATION. THIS 








07 


# SEGMENT SENDS THE TAPE WRITE STOP ORDER WHICH WILL STOP THE 








08 


* WRITE OPERATION AFTER THE ON-LINE BUFFER SHIFTS OUT ITS DATA. 








09 


# IT WILL INITIATE THE WRITE ORDER AND WAIT 100 MSEC FOR THE 








10 


* CRC CIRCUIT 


TO ACCEPT AND COMPUTE THE CRC WORD FOR THE 16 BITS 








11 


# SHIFTED INTO 


IT. THE RESULT SHOULD BE NON-ZERO AND SHOULD BE 








12 


K DETECTED AS 


AN ERROR. THIS ERROR IS LOOKED FOR THROUGH THE 








13 


K ISSUANCE OF 


A TAPE UNIT STATUS COMMAND WHICH SHOULD RETURN A 








14 


U MTC START CODE WHEN THE CRC ACCUMULATOR IS NON-ZERO. 








15 


Hi TBLEND 




0130727 02 001106 003641 003015 




19 


LI 


R10,TWSTP K PRIME UNIT TO TERMINATE WRITE AFTER 18 












BITS. 


0130731 






21 


CALL 


SENDMIOM 


0130731 


02 001110 037020 132064 0132064 


-001- 


22 


BSA 


SENDMIOM 


0130733 


02 001112 130640 131762 0131762 




23 


LL 


R10,TWT2 « SEND WRITE ORDER 


0130735 






24 


CALL 


SENDMIOM 


0130735 


02 001114 037020 132064 0132064 


-001- 


25 


BSA 


SENDMIOM 


0130737 






26 


CALL 


WAIT1 U WAIT 1 SCAN. SHOULD BE ENOUGH FOR 16 BIT 
SHIFT. 


0130737 


02 001116 137020 132224 0132224 


-001- 


28 


BSA 


WAIT1 


0130741 


02 001120 103641 002015 




29 


LI 


R10,TSTAT # SEND TAPE STATUS ORDER TO VERIFY THAT 








30 


THE UNIT CAN 


DETECT A NON-ZERO CRC REGISTER. 


0130743 






31 


CALL 


SENDMIO 


0130743 


02 001122 037020 111050 CSYSUB 


-001- 


32 


BSA 


SENDMIO 


0130745 


02 001124 154072 0131037 




33 

34 


BC 
SEGADD 


XERRMSGPOX 

I. ' 


0130746 


02 001125 003205 


-001- 


35 


LN 


R8,CHKP0INT 


0130747 


02 001126 010614 


-001- 


36 


RLN 


R8,4 


0130750 


02 001127 016170 000360 


-001- 


37 


IRM 


R7,R8/0(360) iKDISPLAY SEGMENT IN BITS 4-7. 


0130752 


02 001131 034560 043463 CTSD 


-001- 


38 


STL 


R7,MSFPR0G 






-001- 


39 


n 


SEG. NUMBER=5. 


0130754 






40 


"TRBL 


Jk1i,'Jki7,Jk18;jfcl9 






-001- 


41 


#8 TBL 0305 








-001- 


42 


Ki TEST 3 








-001- 


43 


U SEGMENT 5 








-001- 


44 


Hi PR CTAPM 








-001- 


45 


# 








-001- 


46 


H EXPECTED OUTPUT MESSAGE. 






-001- 


47 


# DGN TAPE 3 


05 R9 R10 R11 






-001- 


48 


* 








-001- 


49 


n MTC 


68-22 JK16 TAPE UNIT CONTROLLER 


COMMON TAPE MAINTENANCE 
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B09 




TDC DIAGNOSTIC PROGRAM. 












9:34:51 2/07/81 **** 


TEST 3 TAPE UNIT CONTROLLER TEST 












CTAPM W77D 






-001- 


01 


tt 




MTC 68-21 JK17 TAPE 


UNIT CONTROLLER 






-001- 


02 


f 




MTC 68-20 JK18 TAPE 


UNIT CONTROLLER 






-001- 
-001- 


03 
04 


n 
tt 




MTC 68-19 JK19 TAPE 


UNIT CONTROLLER 






-001- 


05 


n 












-001- 


06 


tt 












-001- 


07 


n 


TBL 


1305 








-001- 


OS 


n 


TEST 3 








-001- 


09 


n 


SEGMENT 5 








-001- 


10 


n 


PR 


CTAPM 








-001- 


11 


tt 






■ 






-001- 


12 


H 


EXPEC 






-001- 


13 


tt 


DGN 


TAPE 1 3 05 R9 R10 R11 








-001- 


14 


H 












-002- 


15 


tt 




MTC 60-22 JK16 TAPE 


UNIT CONTROLLER 




- 


-002- 


16 


tt 




MTC 60-21 JK17 TAPE 


UNIT CONTROLLER 






-002- 


17 


tt 




MTC 60-20 JK18 TAPE 


UNIT CONTROLLER 








-002- 
-001- 


18 
19 






MTC 60-19 JK19 TAPE 


UNIT CONTROLLER 








-001- 


20 


tt 


SEGMEN 








-001- 


21 


# 














22 


# 


THE 


CHECK CONSTANT IN THE CRC ACCUMULATOR WILL NOW BE SHIFTED 


■ 






23 


* 


BACK 


INTO THE BUFFER UNIT SO THAT IT CAN BE VERIFIED CORRECT. 








24 


* 


THIS 


SEGMENT CHECKS THAT THE SHIFT CRC ORDER IS EXECUTABLE AND 








25 


n 


THAT 


IT GENERATES AN INTERRUPT UPON COMPLETION. 


0130754 






26 








, 


■ 






27 


# 


NOTE 












28 


* 


THE 


INTERRUPT LEADS (IF CONNEC IHOULD 








29 
30 


tt 

#8 


INVESTIGATED IF THIS SEGMEN1 
TBLEND 


FAILS). 


0130754 02 001133 003641 


020013 




34 






LI R10,BCLRBRF 


It CLEAR BR SO THAT SHIFT CRC WORKS. 


0130756 






35 






CALL SENDMIOM 




0130756 02 001135 037020 


132064 0132064 


-001- 


36 






BSA SENDMIOM 


It SHIFT CRC INTO BUFFER UNIT. 


0130760 02 001137 103641 


001015 




37 






LI R10,TSCRC 


0130762 






38 






CALL SENDMIOM 


■ 


0130762 02 001141 037020 


132064 0132064 


-001- 


39 






BSA SENDMIOM 




0130764 






40 






CALL WAIT1 


H WAIT ONE SCAN. FILL GOES AT 600 NSEC PER 
BIT. 


0130764 02 001143 137020 


132224 0132224 


-001- 


42 






BSA WAIT1 










43 


tt 


THE 


SHIFT CRC OPERATION SHOULD NOW BE COMPLETE. 


0130766 02 001145 151005 






44 






TBS N(INTSBRXRAO), 


S(INTSBR) H WAS INTERRUPT GENERATED? 


0130767 02 001146 055050 


0131037 




45 
46 






BNC XERRMSGPOX 
SEGADD 




0130770 02 001147 003206 




-001- 


47 






LN R8,CHKP0INT 




0130771 02 001150 010614 




-001- 


48 






RLN R8,4 




0130772 02 001151 016170 


000360 


-001- 


49 






IRM R7,R8, 0(360) 


IKDISPLAY SEGMENT IN BITS 4-7. 


COMMON TAPE MAINTENANCE 












PR-1C958-50 
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C09 



TOC DIAGNOSTIC PROGRAM. 
TEST 3 TAPE UNIT CONTROLLER TEST 
0130774 02 001153 034560 043463 CTSO 

0130776 



-001- 
-001- 



01 
02 # 



STL 



R/,MSFPROG 



9:34:51 2/07/81 **** 
CTAPM W77D 

SEG. NUMBER-6. 



-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 

-001- 

-001- 
-001- 
-001- 
-002- 
-002- 
-002- 
-002- 
-001- 
-001- 
-001- 



06 TRBL JK16,JK17,JK18,JK19 

07 U TBL 0306 

08 n TEST 3 

09 K SEGMENT 6 

10 *i PR CTAPM 

11 * 
EXPECTED OUTPUT MESSAGE. 

DGN TAPE 3 06 R9 R10 R11 



12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



MTC 68-22 JK16 TAPE UNIT CONTROLLER 
MTC 68-21 JK17 TAPE UNIT CONTROLLER 
MTC 68-20 JK18 TAPE UNIT CONTROLLER 
MTC 68-19 JK19 TAPE UNIT CONTROLLER 



22 n TBL 1306 

23 #& TEST 3 

24 #& SEGMENT 6 

25 Hi PR CTAPM 
It 

EXPECTED OUTPUT MESSAGE. 
DGN TAPE 1 3 06 R9 R10 R11 



26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 



MTC 60-22 JK16 TAPE UNIT CONTROLLER 

MTC 60-21 JK17 TAPE UNIT CONTROLLER 

MTC 60-20 JK18 TAPE UNIT CONTROLLER 

MTC 60-19 JK19 TAPE UNIT CONTROLLER 

SEGMENT 6 DESCRIPTION. 

THIS SEGMENT VERIFIES THAT THE CRC ACCUMULATOR CONTAINEf THE 

EXPECTED VALUE FOR THE 16 BIT SHIFT CONSTANT PASSED THR' UGH THE 

CRC CIRCUITRY. R10 SHOULD CONTAIN 0(100007) AND R11 SHO LD BE 0(50011) 



0130776 


02 


001155 


003641 


044013 


• 


4U ff& 

44 


0131000 












45 


0131000 


02 


001157 


037020 


132064 0132064 


-001- 


46 


0131002 


02 


001161 


103641 


120013 




47 


0131004 












48 


0131004 


02 


001163 


037020 


132064 0132064 


-001- 


49 


COMMON 


TAPE MAINTENANCE 






9:34: 


51 2/07/81 


rRADE SECRET - SEE TRADE SEC 



40 #% TBLEND 



LI 

CALL 

BSA 

LI 

CALL 

BSA 



R10,BSUNLD0N 

SENDMIOM 

SENDMIOM 

R10,BCLR0CN 

SENDMIOM 

SENDMIOM 



U SET UP THE UNLOAD CONDITIONS. 



CTAPM 



PR-1C958-50 
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D09 



TOC DIAGNOSTIC PROGRAM. 

TEST 3 TAPE UNIT CONTROLLER TEST 

0131006 02,001165 103641 100007 

0131010 

0131010 02 001167 037020 13206* 0132064 

013101? 02 001171 103665 050011 

0131014 02 001173 055023 0131037 



0131015 02 001174 003207 

0131016 02 001175 010614 

0131017 02 001176 016170 000360 
0131021 02 001200 034560 043463 CTSO 



01 

02 

-001- 03 

04 

05 

06 

07 

08 

0? 

-001- 10 

-001- 11 

-001- 12 

-001- 13 

-001- 14 



9:34:51 2/07/81 **** 
CTAPM H770 



It GET THE CRC CONSTANT. 
» WAS CHECK SUCCESSFUL. 



LI R10,SD 
CALL SENDMIOM 
BSA SENDKIOM 
CI R11, 0(50011) 
BNC XERRMSGPOX 

* ALL TAPE CONTROLLER TESTS PASS. TAPE MAINTENANCE IS NOW 

* REMOVED AND TRANSPORT INITIALIZE IS SENT. THIS MILL COMPLETE 

* ALL TAPE UNIT CONTROLLER ORDERS. 

SEGADD 

LN R8,CHKP0INT 

RLN R8,4 

IRM R7,R8,0(360> 

STL R7,MSFPR0G 



^DISPLAY SEGMENT IN BITS 4-7. 



SEG. NUMBER=7. 



0131023 



-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-002- 
-002- 
-002- 
-002- 
-001- 
-001- 
-001- 



18 TRBL JK16,JK18,JK17,JK7 

19 Hi TBL 0307 

20 08 TEST 3 

21 #8 SEGMENT 7 

22 #8 PR CTAPM 

23 n 
EXPECTED OUTPUT MESSAGE. 

DGN TAPE 3 07 R9 R10 R11 



MTC 68-22 JK16 TAPE UNIT CONTROLLER 
MTC 68-20 JK18 TAPE UNIT CONTROLLER 
MTC 68-21 JK17 TAPE UNIT CONTROLLER 
MTC 68-32 JK7 SERIAL PERIPHERAL INTERFACE CIRCUIT 



34 H& TBL 1307 

35 #8 TEST 3 

36 Hi SEGMENT 7 

37 Hi PR CTAPM 
f 

EXPECTED OUTPUT MESSAGE. 
DGN TAPE 1 3 07 R9 R10 R11 



38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



MTC 60-22 JK16 TAPE UNIT CONTROLLER 

MTC 60-20 JK18 TAPE UNIT CONTROLLER 

MTC 60-21 JK17 TAPE UNIT CONTROLLER 

MTC 60-32 JK7 SERIAL PERIPHERAL INTERFACE CIRCUIT 

SEGMENT 7 DESCRIPTION. 

THIS IS THE CLEAN-UP SEGMENT FOR THIS TEST. THE SPI INIT COMMAND 



COMMON TAPE MAINTENANCE 

9:34:51 2/07/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPM 
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TOC DIAGNOSTIC PROGRAM. 

TEST 3 TAPE UNIT CONTROLLER TEST 



E09 



9:34:51 2/07/61 **** 
CTAPM W77D 



01 H IS SENT TO THE TDC. THE CTTC SHOULD BE INITIALIZED. 

02 * AND MAINTENANCE STOP SHOULD GET RESET. 

03 M TBLEND 



THE CRC ERROR 



0131023 02 001202 003641 0*0007 

0131025 

0131025 02 001204 037020 132064 0132064 

0131027 02 001206 103641 002015 

0131031 

0131031 02 001210 037020 132064 0132064 

0131033 02 001212 117667 020401 

0131035 02 001214 055002 0131037 

0131036 02 001215 053532 0130570 

0131037 

0131037 02 001216 137000 132000 0132000 



-001- 



-001- 



07 


LI 


R10,INIT 


08 


CALL 


SENDMIOM 


09 


PSA 


SENDMIOM 


10 


LI 


R10,TSTAT 


12 


CALL 


SENDMIOM 


13 


BSA 


SENDMIOM 


14 


CIRM 


R11,M(TUR 


15 


BNC 


XERRMSGPO 


16 


B 


CONTRTN 


17 


XERRMSGPOX 




18 


BL 


ERRMSGPO 



H REMOVE THE MAINTENANCE STATE. 



It MAKE SURE MAINTENANCE IS RESET AND READY 
ACTIVE 

R11,M(TUR)/ES(TUR>,S(TUR>,<M<TUR)+M(MTCE)>/ES(TUR> 



COMMON TAPE MAINTENANCE 
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TDC DIAGNOSTIC PROGRAM. 
TEST 4 MINI-RECORDER READ TEST. 
0131041 



0000004 



9:34:51 2/07/81 **** 
CTAPM W77D 



01 DECKREAD 

02 n THIS IS THE TAPE DECK READ DIAGNOSTIC TEST. THIS TEST'S PRIMARY 

03 * FUNCTION IS TO DETECT ERRORS IN THE TRACK SELECTION, READ-A-BLK, 

04 # AND CONTINUOUS READ CIRCUITRY. IT MUST ALSO PROTECT AGAINST BURNT 

05 # OUT LED'S WHICH COULD CAUSE THE CARTRIDGE TO BECOME USELESS. 



06 TEST SET 



TEST+1 



0131041 02 001220 103164 

0131042 02 001221 034560 043463 CTSD 



10 


LN R7,4 


11 


SEGADDI 


001- 12 


STL R7,MSFPR0G 


001- 13 # 





0TEST NUMBER 

^DISPLAY NUMBER ON LOW 4 BITS OF SSP. 
SEG. NUMBER=0. 



0131044' 






-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-002- 
-002- 
-002- 
-002- 
-001- 
-001- 
-001- 



17 TRBL JK16 / JK18,JK19,JK0 

18 n TBL 0400 

19 HI TEST 4 

20 Ut, SEGMENT 
#8 PR CTAPM 
tt 

EXPECTED OUTPUT MESSAGE. 
DGN TAPE 4 00 R9 R10 R11 



21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 



MTC 68-22 JK16 TAPE UNIT CONTROLLER 
MTC 68-20 JK18 TAPE UNIT CONTROLLER 
MTC 68-19 JK19 TAPE UNIT CONTROLLER 
MTC 68-15 MINI-RECORDER 



33 Hi TBL 1400 

34 Hi TEST 4 

35 Hi SEGMENT 

36 #& PR CTAPM 

37 # 
EXPECTED OUTPUT MESSAGE. 

DGN TAPE 1 4 00 R9 R10 R11 



38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



MTC 60-22 JK16 TAPE UNIT CONTROLLER 

MTC 60-20 JK18 TAPE UNIT CONTROLLER 

MTC 60-19 JK19 TAPE UNIT CONTROLLER 

MTC 60-15 MINI-RECORDER 1 

SEGMENT DESCRIPTION. 

A SECONDARY TAPE STATUS REOUEST IS SENT TO THE TAPE CONTROLLER. 
A CHECK IS MADE TO ASSURE THAT THE MINI-RECORDER IS IN AN IDLE 



COMMON TAPE MAINTENANCE 

9:34:51 2/07/81 TRADE SECRET 
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A01 


• 


> 


TDC DIAGNOSTIC PROGRAM. 




9:34:51 2/07/81 


**** 






TEST 4 MINI-RECORDER READ TEST. 




CTAPM 

01 H INITIALIZED STATE. NOT LOOKING AT THE BOT-EOT FLAGS, THE ONLY BITS 

02 H SET SHOULD BE THE TAPE UNIT READY (TUR), WRITE ENABLE (WENBL) AND 

03 # THE DEVICE CODE 0(15). R11 CONTAINS THE RESPONSE. 


W77D 




■ 


0131044 




04 

05 H NOTE! CARTRIDGE MUST BE IN PLACE AND WRITE ENABLED!! 

06 H THE CIRCUIT PACKS LISTED ABOVE MAY NOT SOLVE THE PROBLEM. 

07 IK A POSSIBLE FAULT MAY EXIST IN THE CABLING BETWEEN THE 

08 H MINI-RECORDER AND TDC. AS A LAST RESORT, REPLACE THE MINI-RECORDER. 

09 Hi TBL END 






• 


0131044 02 001223 003641 002015 
0131046 




13 LI R10,TSTAT 

14 CALL SENDMIOM 








0131046 02 001225 037020 132064 0132064 


-001- 


15 BSA SENDMIOM 








0131050 02 001227 103401 000315 




16 LI RO,M(TUR)+M(WENBL)+TUCDEV H CHECK FOR IDLE STATE. 








0131052 02 001231 017013 137377 




17 CRM R0,R11,--(M(B0T)+M(E0T)) H MAKE SURE NO OBVIOUS ERRORS EXIST. 






0131054 02 001233 055763 0131037 




18 BNC XERRMSGPOX 

19 SEGADD 








0131055 02 001234 003201 


-001- 


20 LN R8,CHKP0INT 








0131056 02 001235 010614 


-001- 


21 RLN R8,4 








0131057 02 001236 016170 000360 


-001- 


22 IRM R7,R8, 0(360) IKDISPLAY SEGMENT IN BITS 4-7. 








0131061 02 001240 034560 043463 CTSD 


-001- 


23 STL . R7,MSFPR0G 








0131063 

COMMON TAPE MAINTENANCE 


■ I 1 I I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

ooooooooooooooooooooo o 

000000000000000000000 o 

1 1 1 I I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


24 H _ SEG. NUMBERS. 

28 TRBL JKO 

29 Hi TBL 0401 

30 IKS TEST 4 

31 IK8 SEGMENT 1 

32 #8 PR CfAPM 

33 IK 

34 H EXPECTED OUTPUT MESSAGE. 

35 IK DGN TAPE 4 01 R9 R10 R11 

36 IK 

37 H MTC 68-15 MINI-RECORDER 

38 H 

39 IK 

40 IK 

41 IKS TBL 1401 

42 Hi TEST 4 

43 Hi SEGMENT 1 

44 IKS PR CTAPM 

45 IK 

46 H EXPECTED OUTPUT MESSAGE. 

47 H DGN TAPE 1 4 01 R9 R10 R11 

48 IK 

49 IK MTC 60-15 MINI-RECORDER 1 

PR-1C958-50 
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TDC DIAGNOSTIC PROGRAM. 










9:34:51 2/07/81 **** 


TEST 4 


KINI-RECORDER READ TEST. 










CTAPM W77D 






-001- 


01 n 












-001- 


02 * 


SEGMENT 1 DESI 








-001- 


03 H 














04 n 


THE BOT-EOT 


LIGHT SENSORS FAILED TO STOP THE 


MINI-RECORDER WHEN 








05 n 


THE CARTRIDGE WAS MOVED PAST HE BOT HOLES. 










06 #8 


TBLEND 






0131063 02 


001242 024276 




10 


TBN 


R11,S(80T> U IS POSITION DETERMINABLE 


0131064 02 


001243 054004 0131070 




11 


BC 


SKIPLED K DO NOT DO 


LED PROTECTION TEST. 


0131065 






12 


CALL 


LEDPROT 




0131065 02 


001244 037020 132161 0132161 


-001- 


13 


BSA 


LEDPROT 




0131067 02 


001246 155750 0131037 




14 


BNC 


XERRMSGPOX 




0131070 






15 SKIPLED 






0131070 02 


001247 161767 




16 


SBS 


N(DIAGBITS)<RA1),S(DIAGBITS)+1 




0131071 02 


001250 062747 




17 


ZBS 


N(DIAGBITS>(RA1),S(DIAGBITS) ALLOW TAPE INTERRUPT SERVICE. 


0131072 02 


001251 015421 




18 


COM 


R1 




0131073 02 


001252 034420 045266 LAYOUT 




19 


STL 


R1,I OBUF K SET UP I 
FIELD. 


BUFFER TO ALL ONES IN TRACK ' 


0131075 02 


001254 003641 003415 




21 


LI 


R10,TRB 




0131077 






22 SENO 












23 


SEGADD 






0131077 02 


001256 103202 


-001- 


24 


LN 


R8,CHKP0INT 




0131100 02 


001257 010614 


-001- 


25 


RLN 


R8,4 




0131101 02 


001260 016170 000360 


-001- 


26 


IRM 


R7,R8,0(360) ^DISPLAY SEGMENT IN BITS 4-7. 


0131103 02 


001262 034560 043463 CTSD 


-001- 
-001- 


27 
28 # 


STL 


R7,MSFPR0G 


SEG. NUMBERS. 


0131105 




i ■ ■ ■ ■ 

ooooo 
ooooo 

1 1 1 1 1 


32 

33 #8 

34 Hi 

35 #8 

36 Hi 

37 n 


TRBL 
TBL 0402 
TEST 4 
SEGMENT 2 
PR CTAPM 


JK16,JK17,JK18,JK19,JK0 


• 






-001- 


38 n 


EXPECTED OUTPUT MESSAGE. 








-001- 


39 n 


5GN TAPE 4 02 R9 R10 R11 








-001- 


40 n 












-001- 


41 # 


MTC 


68-22 JK16 TAPE UNIT CONTROLLER 








-001- 


42 » 


MTC 


68-21 JK17 TAPE UNIT CONTROLLER 








-001- 


43 n 


MTC 


68-20 JK18 TAPE UNIT CONTROLLER 








-001- 


44 # 


MTC 


68-19 JK19 TAPE UNIT CONTROLLER 








-001- 


45 # 


MTC 


68-15 MINI-RECORDER 








-001- 


46 * 












-001- 
-001- 
-001- 


47 IK 

48 « 

49 #8 


TBL 1402 


'■ 




COMMON TAPE MAINTENANCE 
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TDC DIAGNOSTIC PROGRAM. 




9:34:51 2/07/81 **** 




TEST * MINI-RECORDER READ TEST. 


oooo 

oooo 

1 1 1 1 


CTAPM W77D 

01 #R TEST 4 

02 U SEGMENT 2 

03 tti PR CTAPM 

04 K 






0131105 
0131105 


-001- 
-001- 
-001- 
-002- 
-002- 
-002- 
-002- 
-002- 
-001- 
-001- 
-001- 


05 # EXPECTED OUTPUT MESSAGE. 

06 ft DGN TAPE 1 4 02 R9 R10 R11 

07 ft 

08 ft MTC 60-22 JK16 TAPE UNIT CONTROLLER 

09 ft MTC 60-21 JK17 TAPE UNIT CONTROLLER 

10 ft MTC 60-20 JK18 TAPE UNIT CONTROLLER 

11 ft MTC 60-19 JK19 TAPE UNIT CONTROLLER 

12 ft MTC 60-15 MINI-RECORDER 1 

13 ft 

14 ft SEGMENT 2 DESCRIPTION. 

15 ft 

16 ft THE MINI-RECORDER HAS GIVEN A READ-A-BLOCK ORDER. A TIME SPAN 

17 ft OF 5 SECONDS WAS ALLOWED TO PASS. THIS SHOULD HAVE BEEN SUFFICIENT 

18 ft TIME FOR THE UNIT TO READ A BLOCK AND THE INTERRUPT LEVEL CODE TO 

19 ft SERVICE THE BUFFERS. HOWEVER, A CRC ERROR EXISTED. 
20 

21 ft NOTE! 

22 ft THIS FAILURE MAY BE CAUSED BY CABLING FAULTS OR DAMAGE CARTRIDGE. 

23 ft THESE POSSIBILITIES SHOULD BE INVESTIGATED BEFORE MINI-RECORDER IS 

24 ft REPLACED. 

25 Hi TBLEND 

29 CALL SENDMIOM 






0131105 02 001264 037020 132044 0132064 


-001- 


30 BSA SENDMIOM 






0131107 




31 BGNTIM SEC=5 #TIME FOR 1BL0CK + BOT CONDITIONS. 






0131107 


-001- 


32 CALL TIMOUT 




' 


0131107 02 001266 173022 


-002- 


33 BSAI UIMOUT ft SUBROUTINE TIMOUT IS IN PROGRAM CSYSUB 






0131110 02 001267 000311 137020 


-001- 


34 DATA 201 ft TIMOUT+1 






0131111 




35 CALL MYWAIT 






0131111 02 001270 137020 132234 0132234 


-001- 


36 BSA MYWAIT 






0131113 02 001272 151620 




37 TBS N(SRFAL)(RA1) / S(SRFAL) #WAS THERE A CRC FAILURE? 






0131114 02 001273 054723 0131037 




38 BC XERRMSGPOX ft READ DOES NOT WORK. 

39 SEGADD 






0131115 02 001274 003203 


-001- 


40 LN R8,CHKP0INT 






0131116 02 001275 010614 


-001- 


41 RLN R8,4 






0131117 02 001276 016170 000360 


-001- 


42 IRM R7,R8, 0(360) ^DISPLAY SEGMENT IN BITS 4-7. 






0131121 02 001300 034560 043463 CTSD 


-001- 
-001- 


43 STL R7,MSFPR0G 

44 ft SEG. NUMBER-3. 




i 


COMMON TAPE MAINTENANCE 




PR-1C958-50 
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TDC DIAGNOSTIC PROGRAM. 
TEST 4 MINI-RECORDER READ TEST. 
0131123 



0131123 



-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-002- 
-001- 
-001- 
-001- 



001 



01 TRBL JKO 

02 #8 TBI 0403 

03 ffi TEST 4 

04 #8 SEGMENT 3 

05 *8 PR CTAPM 

n 

EXPECTED OUTPUT MESSAGE. 
DGN TAPE 4 03 R9 R10 R11 



9:34:51 2/07/81 **** 
CTAPM W77D 



06 
07 
08 
09 
10 
11 
12 
13 



MTC 68-15 MINI-RECORDER 



14 #8 TBL 1403 

15 #8 TEST 4 

16 lit SEGMENT 3 

17 #8 PR CTAPM 



18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 



EXPECTED OUTPUT MESSAGE. 
DGN TAPE 1 4 03 R9 R10 R11 

MTC 60-15 MINI-RECORDER 1 

■ 

SEGMENT 3 DESCRIPTION. 

THE READ-A-BLOCK COMMAND WAS EXECUTED FOR ALL FOUR TRACKS. AFTER 
EACH READ, THE BLOCK NUMBER WAS CHECKED TO ASSURE THAT THE DATA 
CAME OFF OF THE RIGHT TRACK. THEN A BACKSPACE COMMAND WAS EXECUTED 
TO REPOSITION THE TAPE OVER THE SAME BLOCK. 

NOTE! 

CABLING FAULTS MAY HAVE CAUSED THE INCORRECT SELECTION OF THE 
TRACKS DURING THE READ. THIS SHOULD BE INVESTIGATED BEFORE 
MINI-RECORDER REPLACEMENT. 



35 #8 TBLEND 



0131123 02 

0131125 02 

0131126 02 

0131130 02 

0131131 02 
0131133 02 

0131135 02 

0131136 02 

0131137 02 

0131141 



001302 030500 045266 LAYOUT 

001304 010517 

001305 017112 030000 

001307 055707 0131037 

001310 003640 010000 
001312 003645 043415 

001314 054013 0131150 

001315 072652 

001316 003641 006415 



11 

41 
42 
43 
44 
45 
46 
47 

49 



LL R4,I OBUF 

RLN R4,1 

CRM R4,R10,MSK<2,12> 

BNC XERRMSGPOX 

AI R10,MSK(1,12> 

CI R10,TRB+MSK<1,14> 

BC CONREAD 

HN R10,10 

LI R10,TBS 

CALL SENDMIOM 



It HAS CORRECT TRACK BEEN READ. 



n HAVE ALL TRB COMMANDS BEEN TESTED. 



it MUST ISSUE BACKSPACE TO PROTECT FROM 
RUNNING OFF EOT. 



COMMON TAPE MAINTENANCE 
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TOC DIAGNOSTIC PROGRAM. 












9:34:51 2/07/81 **** 


TEST 4 MINI-RECORDER HEAD TEST. 












CTAPM M77D 


0131 141 02 001320 037020 132064 0132064 


-001- 


01 






BSA 


SENDMIOM 


0131143 




02 






CALL 


WAIT1S It WAIT 1 SECOND BEFORE CONTINUING. 


0131143 02 001322 137020 132227 0132227 


-001- 


03 






BSA 


WAIT1S 


0131145 02 001324 172252 




04 






GN 


R10,10 


0131146 02 001325 006064 




05 






LR 


R3,R4 tt SAVE LAST READ BLOCK *. USED TO ASSURE 
BACKSPACE WORKED. 


0131147 02 001326 053730 0131077 




07 






B 


SENO 


0131150 




08 


CONRI 








09 






SEGADD 




0131150 02 001327 103204 


-001- 


10 






LN 


R8,CHKP0INT 


0131151 02 001330 010614 


-001- 


11 






RLN 


R8,4 


0131152 02 001331 016170 000360 


-001- 


12 






IRM 


R7,R8, 0(360) ^DISPLAY SEGMENT IN BITS 4-7. 


0131154 02 001333 034560 043463 CTSD 


-001- 


13 






STL 


R7,MSFPR0G 




-001- 


14 


It 






SEG. NUMBER»4. 


0131156 




18 






TRBL 


JK16 / JK1/,JK18,JK19,JK0 




-001- 


19 


#8 


TBL 0404 


.. •■ -- " 




-001- 


20 


#& 


TEST 4 






-001- 


21 


n 


SEGMENT 4 






-001- 


22 


n 


PR 


CTAPM 






-001- 


23 


i 










-001- 


24 


i 


EXPEC 




-001- 


25 


n 


MN 


TAPE 


X 04 R9 R10 R11 




-001- 


26 


n 










-001- 


27 


I 




MTC 


68-22 JK16 TAPE UNIT CONTROLLER 




-001- 


28 


§ 




MTC 


68-21 JK17 TAPE UNIT CONTROLLER 


* 


-001- 


29 


% 




MTC 


68-20 JK18 TAPE UNIT CONTROLLER 




-001- 


30 


H 




MTC 


68-19 JK19 TAPE UNIT CONTROLLER 




-001- 


31 


n 




MTC 


68-15 MINI-RECORDER 




-001- 


32 


n 










-001- 


33 


n 










-001- 


34 


% 










-001- 


35 


#8 


TBI 


1404 






-001- 


36 


n 


TEST 4 






-001- 


37 


#8 


SEGMENT 4 






-001- 


38 


#8 


PR 


CTAPM 






-001- 


39 


« 










-001- 


40 


# 


EXPEC 




-001- 


41 


* 


)GN 


TAPE 1 4 04 R9 R10 R11 




-001- 


42 


* 










-002- 


43 


it 




MTC 


60-22 JK16 TAPE UNIT CONTROLLER 




-002- 


44 


It 




MTC 


60-21 JK17 TAPE UNIT CONTROLLER 




-002- 


45 


It 




MTC 


60-20 JK18 TAPE UNIT CONTROLLER 




-002- 


46 


n 




MTC 


60-19 JK19 TAPE UNIT CONTROLLER 




-002- 


47 


tt 




MTC 


60-15 MINI-RECORDER 1 




-001- 


48 


n 










-001- 


49 


H SEGMENT 4 DESCRIPTION. 


COMMON TAPE MAINTENANCE 
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TDC DIAGNOSTIC PROGRAM. 

TEST * MINI-RECORDER READ TEST. 



9:34:51 2/07/81 **** 
CTAPM W77D 

-001- 01 n 

02 U THE BACKSPACE COMMAND GIVEN IN THE ABOVE SEGMENT DID NOT SEEM 

03 ft TO EXECUTE PROPERLY. THIS MAS DETERMINED BY COMPARING THE 

OA It BLOCK NUMBERS OF THE LAST TWO BLOCKS READ OFF OF THE TAPE. THEY 

05 It HERE NOT THE SAME. 

06 It NOTE! IF R10=0(6415) RUN TEST 3. (IF NOT SEE BELOW) 

07 It MARGINAL DATA RECORDING MAY HAVE RESULTED IN THIS FAILURE. MECHANICAL 

08 U WEAR OF THE CARTRIDGE MAY ALSO RESULT IN THIS FAILURE. EXPLORE 

09 It THESE POSSIBILITIES BEFORE REPLACING THE MINI-RECORDER. 

10 HI TBLEND 



0131156 02 001335 017103 007776 

0131160 02 001337 055657 0131037 

0131161 02 001340 003101 

0131162 

0131162 02 001341 103641 006415 

0131164 

0131164 02 001343 037020 132064 0132064 

0131166 • 

0131166 02 001345 137020 132227 0132227 

0131170 02 001347 136100 131162 0131162 

0131172 02 001351 034500 045266 LAYOUT 



0131174 02 001353 003205 

0131175 02 001354 010614 

0131176 02 001355 016170 000360 
0131200 02 001357 034560 043463 CTSD 



-001- 
-001- 



-001- 
-001- 
-001- 
-001- 
-001- 



14 
15 
16 
17 
18 
19 

21 
22 
23 

24 
25 
26 

28 
29 
30 
31 
32 
33 



* BEFORE CONTINUING, CHECK THAT BACKSPACE, WORKED. 



BKSPLOP 



CRM R4,R3,MSK(11,1) 

BNC XERRMSGPOX 

LN R4,1 

LI R10,TBS 

CALL SENDMIOM 

BSA SENDMIOM 

CALL WAIT1S 

BSA WAIT1S 

BX R4,BKSPL0P 

STL R4,I_0BUF 

SEGADD 

LN R8,CHKP0INT 

RLN R8,4 

IRM R7,R8, 0(360) 

STL R7,MSFPR0G 



#ARE BLOCK NUMBERS SAME 



K POSITION 
EOT. 



FOR 2 BLOCK READ. PROTECTS AGAINST 



It WAIT 1 SECOND BEFORE CONTINUING 



n MUST 

# INIT 

OUT. 



2 BCKSP- 

BUFFER. 'DOES NOT FAKE NEXT TEST 



^DISPLAY SEGMENT IN BITS 4-7. 
_ SEG. NUMBERS. 



0131202 



-001 
-001 
-001 
-001 
-001 
-001 
-001 
-001- 45 
-001- 46 
-001- 47 
-001- 48 
-001- 49 



37 TRBL 

38 (K»-TBL 0405 

39 #8 TEST 4 

40 ttt SEGMENT 5 
#» PR CTAPM 



JK16,JK17,JK18,JK19,JK0 



41 
42 
43 
44 



EXPECTED OUTPUT MESSAGE. 
DGN TAPE 4 05 R9 R10 R11 

MTC 68-22 JK16 TAPE UNIT CONTROLLER 

MTC 68-21 JK17 TAPE UNIT CONTROLLER 

MTC 68-20 JK18 TAPE UNIT CONTROLLER 

MTC 68-19 JK19 TAPE UNIT CONTROLLER 



COMMON TAPE MAINTENANCE 
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601 



TDC DIAGNOSTIC PROGRAM. 

TEST 4 MINI-RECORDER READ TEST. 



-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-002- 
-002- 
-002- 
-002- 
-002- 
-001- 
-001- 
-001- 



9:34:51 2/07/81 **** 
CTAPM W77D 



I 

U 

n 

#8 



MTC 68-15 MINI-RECORDER 



TBL 1405 

06 Hi TEST 4 

07 H SEGMENT 5 
#& PR CTAPM 
I 

EXPECTED OUTPUT MESSAGE. 
DGN TAPE 1 4 05 R9 R10 R11 



08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 



MTC 
MTC 
MTC 
MTC 



60-22 JK16 TAPE 
60-21 JK17 TAPE 
60-20 JK18 TAPE 
60-19 JK19 TAPE 



UNIT CONTROLLER 
UNIT CONTROLLER 
UNIT CONTROLLER 
UNIT CONTROLLER 



MTC 60-15 MINI-RECORDER 1 

GMENT 5 DESCRIPTION. 

CONTINUOUS READ WAS ISSUED TO DETERMINE IF IT COULD EXECUTE 
CORRECTLY. AFYER 3 SECONDS HAD ELAPSED, A CHECK WAS MADE TO 
ASSURE THAT NO CRC ERROR WAS DETECTED BY THE INTERRUPT LEVEL 
PROGRAM. A CRC ERROR WAS NOTED. 
TBLEND 



0131202 02 001361 010461 

0131203 02 001362 003641 007415 
0131205 

0131205 02 001364 037020 132064 0132064 -001- 

0131207 

0131207 02 001366 137020 132232 0132232 -001- 

0131211 02 001370 103641 040007 

0131213 

0131213 02 0C1372 037020 132064 0132064 -001- 

0131215 02 001374 151620 

0131216 02 001375 054621 0131037 

0131217 02 001376 003206 -001- 

01312".0 02 001377 010614 -001- 

0131221 02 001400 016170 000360 -001- 

0131223 02 001402 034560 043463 CTSD -001- 

-001- 



29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 



tf NEXT THE TAPE READ COMMAND WILL BE ISSUED TO TEST THE ABILITY 
H OF THE UNIT TO READ CONTINUOUSLY. 

R3,1 

R10,TRT It PREPARE TO READ CONTINUOUSLY. 

SENDMIOM 

SENDMIOM 

WAIT3S * WAIT FOR READ ERROR TO OCCUR. 

WAIT3S 

R10,INIT 

SENDMIOM 

SENDMIOM 

N(SRFAL)(RA1),S(SRFAL) It HAS A CRC FAILURE CICURRED? 

XERRKSGPOX 



RRU 

LI 

CALL 

BM 

CALL 

BSA 

LI 

CALL 

BSA 

TBS 

BC 

SEGADD 

LN 

RLN 

IRM 

STL 



R8,CHKP0INT 

R8,4 

R7,R8, 0(360) 

R7,MSFPR0G 



#DISFuAY SEGMENT IN BITS 4-7. 



SEG. NUMBER=6. 



COMMON TAPE MAINTENANCE 
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TOC DIAGNOSTIC PROGRAM. 
TEST 4 MINI-RECORDER READ TEST. 
0131225 



-001 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-001- 

-002- 

-002- 

-002- 

-002- 

-002- 

-001- 

-001- 

-001- 



9:34:51 2/07/81 **** 
CTAPM W77D 



01 TRBL 

02 H TBL 0406 

03 « TEST 4 

04 tit SEGMCNT 6 
«% PR CTAPM 



JK16,JK17,JK18,JK19,JK0 



05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 



EXPECTED OUTPUT MESSAGE. 
DGN TAPE 4 06 R9 R10 R11 



MTC 
MTC 



68-22 JK16 TAPE UNIT CONTROLLER 
68-21 JK17 TAPE UNIT CONTROLLER 



MTC 68-20 JK18 TAPE UNIT CONTROLLER 
MTC 68-19 JK19 TAPE UNIT CONTROLLER 
MTC 68-15 MINI-RECORDER 



18 *& TBL 1406 

19 HI TEST 4 

20 #8 SEGMENT 6 
M, PR CTAPM 



21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



EXPECTED OUTPUT MESSAGE. 
DGN TAPE 1 4 06 R9 R10 R11 

MTC 60-22 JK16 TAPE UNIT CONTROLLER 

MTC 60-21 JK17 TAPE UNIT CONTROLLER 

MTC 60-20 JK18 TAPE UNIT CONTROLLER 

MTC 60-19 JK19 TAPE UNIT CONTROLLER 

MTC 60-15 MINI-RECORDER 1 

SEGMENT 6 DESCRIPTION. 

THE CONTINUOUS READ EXECUTED BY THE ABOVE SEGMENT HAS NOT 
MOVED THE TAPE FAR ENOUGH TO GET MORE THAN ONE BLOCK. 



36 Hi TBLEND 



0131225 02 001404 030400 045266 LAYOUT 
0131227 02 001406 003402 003777 
0131231 02 001410 003462 003777 

0131233 02 001412 005003 

0131234 02 001413 055603 0131037 

0131235 02 001414 003207 

0131236 02 001415 010614 

0131237 02 001416 016170 000360 
0131241 02 001420 034560 043463 CTSD 





40 


LL 


RO,I OBUF 




41 


NI 


R0,MSK(11) 




42 


NI 


R3,MSK(11) 




43 


SR 


R0,R3 




44 


BNC 


XERRMSGPOX 




45 


SEGADD 




001- 


46 


LN 


R8,CHKP0INT 


001- 


47 


RLN 


R8,4 


001- 


48 


IRM 


R7,R8,0(360> 


001- 


49 


STL 


R7,MSFPR0G 



# HAS MORE THAN 1 BLOCK BEEN READ? 



^DISPLAY SEGMENT IN BITS 4-7. 



COMMON TAPE MAINTENANCE 
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TDC DIAGNOSTIC PROGRAM. 

TEST * MINI-RECORDER READ TEST. 

0131243 02 001422 003641 002015 

0131245 

0131245 02 001424 037020 132224 0132224 

0131247 

0131247 02 001426 137020 132064 0132064 

0131251 02 001430 124272 — 

0131252 02 001431 054565 0131037 



-001- 



-001- 
-001- 



01 
02 
03 
04 
05 
06 
07 
08 



CALL 

BSA 

CALL 

BSA 

TBN 

BC 



"ST57tsTat 

HAITI 

HAITI 

SENDMIOM 

SENDMIOM 

R11,S(TIM) 

XERRMSGPOX 



9:34:51 2/07/81 **** 
CTAPM H770 
SEG. NUMBER"?. 



U SEE IF TAPE IS STOPPED. 
H IS TAPE STILL MOVING? 



0131253 



0131253 



-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-002- 
-002- 
-002- 
-002- 
-001- 
-001- 
-001- 



12 
13 
14 
15 
16 
17 
18 
1? 
20 
21 
22 
23 
24 
25 
26 
2? 



TRBL JK16,JK17,JK18,JK0 
#8 TBL 0407 
Hi TEST 4 
Hi SEGMENT 7 
Hi PR CTAPM 
H 

EXPECTED OUTPUT MESSAGE. 
DGN TAPE 4 07 R? R10 R11 



MTC 68-22 JK16 TAPE UNIT CONTROLLER 
MTC 68-21 JK1? TAPE UNIT CONTROLLER 
MTC 68-20 JK18 TAPE UNIT CONTROLLER 
MTC 68-15 MINI-RECORDER 



28 Hi TBL 1407 

29 Hi TEST 4 

30 Hi SEGMENT 7 
Hi PR CTAPM 



31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 



EXPECTED OUTPUT MESSAGE. 
DGN TAPE 1 4 07 R9 R10 R11 

MTC 60-22 JK16 TAPE UNIT CONTROLLER 

MTC 60-21 JK17 TAPE UNIT CONTROLLER 

MTC 60-20 JK18 TAPE UNIT CONTROLLER 

MTC 60-15 MINI-RECORDER 1 

SEGMENT 7 DESCRIPTION. 

TAPE RE>D HAS TC BE TERMINATED BY AN INIT ORDER. 
IS STILL MOVING. 



THE TAPE 



NOTE! REMOVE CARTRIDGE MANUALLY BEFORE REPAIR IS INITIATED. 
AFTER REPAIR, REPLACE CARTRIDGE AND RUN THIS TEST TO SEE IF 
IT ATPS. 



49 Hi TBLEND 



COMMON TAPE MAINTENANCE 
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TDC DIAGNOSTIC PROGRAM. 
TEST * MINI-RECORDER READ TEST. 
0131253 02,001432 037000 130570 0130570 



C02 



01 BL CONTRTN 



9:34:51 2/07/81 **** 
CTAPM W77D 



COMMON TAPE MAINTENANCE PR-1C958-50 
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> 


TDC DIAGNOSTIC PROGRAM. 


9:34:51 2/07/81 **** 




TEST 5 MISCELLANEOUS RECORDER FUNCTIONS. CTAPM W77D 






0131255 


01 MISCT 

02 * THIS IS THE TAPE DECK MISCELLANEOUS TEST. ALL NONE READ, WRITE 








03 ft FUNCTIONS WILL BE TESTED AT THIS TIME. THIS TEST ALSO IS PROTECTED 




. 




04 H FROM AN LED BURN OUT TO PREVENT UNWINDING OF THE TAPE OFF THE REELS. 

05 K NOTE! A TAPE CARTRIDGE MUST BE IN PLACE FOR THIS TEST. 






0000005 


06 TEST SET TEST+1 






0131255 02 001434 103165 


10 LN R7,5 




•'■..' 




11 SEGADDI 






0131256 02 001435 034560 043463 CTSD 


-001- 12 STL R7,MSFPR0G ^DISPLAY NUMBER ON LOW 4 BITS OF SSP. 




'. 




-001- 13 It SEG. NUMBER=0. 






0131260 


14 TRBL JKO" 
-001- 15 08 TBL 0500 








-001- 16 fti TEST 5 








-001- 17 fti SEGMENT 






-001- 18 Hi, PR CTAPM 








-001- 19 ft 






• 


-001- 20 It EXPECTED OUTPUT MESSAGE. 

-001- 21 If DGN TAPE 5 00 R9 R10 R11 

-001- 22 If 

-001- 23 It MTC 68-15 MINI-RECORDER 

-001- 24 K 

-001- 25 If 

-001- 26 ft 

-001- 27 fit TBL 1500 




• 




-001- 28 #8 TEST 5 
-001- 29 Hi SEGMENT 








-001- 30 #8 PR CTAPM 
-001- 31 It 








-001- 32 H EXPECTED OUTPUT MESSAGE. 




■ 




-001- 33 * DGN TAPE 1 5 00 R9 R10 R11 








-001- 34 It 








-002- 35 If MTC 60-15 MINI-RECORDER 1 

-001- 36 It 

-001- 37 n SEGMENT DESCRIPTION. 








-001- 38 It 








39 It THE BOT-EOT SENSORS DID NOT PREVENT THE TAPE GOING BEYOND THE 








40 H BOT HOLES. A FAULTY CARTRIDGE OR BAD TRANSPORT MAY BE THE CAUSE. 








41 #8 TBLEND 






0131260 02 001437 003641 002015 


45 LI R10,TSTAT 






0131262 


46 CALL SENDMIO 






0131262 02 001441 037020 111050 CSYSUB 


-001- 47 BSA SENDMIO 






0131264 02 001443 124276 


48 TBN R11,S(B0T) IflS TAPE AT BOT 




; 


0131265 02 001444 054004 0131271 


49 BC NOLED 




COMMON TAPE MAINTENANCE 


PR-1C958-50 
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TDC DIAGNOSTIC PROGRAM. 

TEST 5 MISCELLANEOUS RECORDER FUNCTIONS. 



0131266 

0131266 02 001445 037020 132161 0132161 

0131270 02 001447 155547 0131037 

0131271 

0131271 02 001450 161767 

0131272 02 001451 062747 



0131273 
0131275 
0131275 
0131277 
0131277 
0131301 
0131303 
0131305 
0131307 
0131311 
0131312 
0131313 



0131314 

0131314 02 001473 107145 

0131315 

0131315 02 001474 106246 

0131316 

0131316 02 001475 037020 132064 0132064 

0131320 02 001477 103201 

0131321 02 001500 010614 

0131322 02 001501 016170 000360 
0131324 02 001503 034560 043463 CTSD 



0131326 



-001- 



01 

02 

03 

04 NOLED 

05 



02 001452 003641 003415 

02 001454 037020 132064 0132064 -001- 

02 001456 137020 132232 0132232 -001- 
02 001460 130400 045266 LAYOUT 
02 001462 003421 000144 
02 001464 003541 002415 
02 001466 003521 004415 

02 001470 003061 

02 001471 005020 

02 001472 054002 0131315 



-001- 

-001- 
-001- 
-001- 
-001- 
-001- 



-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 



CALL 

BSA 

BNC 



LEDPROT 
LEDPROT 
XERRMSGPOX 



06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 



SBS N(DIAGBITSHRA1 
ZBS N(DIAGBITS)(RA1 
ASSUME THAT RD1BLK WORKS 



9:34:51 2/07/81 **** 
CTAPM W77D 
# CHECK THAT LED IS NOT AFFECTING TEST. 



>,S<DIAGBITS>+1 

),S(DIAGBITS) tfSET UP INTERRUPT ACTIVATION. 



23 OTHER 

24 

25 GO 

26 

27 

28 

29 

30 

31 

32 

33 

34 n 



LI R10,TRB 

CALL SENDMIOM 

BSA SENDMIOM 

CALL WAIT3S 

BSA WAIT3S 

LL RO,I 08UF 

LI R1,10"0 

LI R6,TFF 

LI R5,TFR 

LN R3,1 

SR R1,R0 

BC GO 
FROM THE ABOVE CALCULATION, 
TO THE END OF TAPE THAN THE 
SPEED TEST WILL BE THE FAST 



ICREAD BLK TO LOCATE POSITION OF TAPE. 
U WAIT 3 SECONDS FOR READ TO STOP. 
0GET BLOCK NUMBER 
(KSET UP FAST SPEED ORDERS. 

MUCH ORDER SHOULD BE SENT FIRST. 

THE TAPE IS CLOSER 
BOT. THE FIRST FAST 
REVERSE. 



EXR 

LR 

CALL 

BSA 

SEGADD 

LN 

RLN 

IRM 

STL 



R6,R5 

R10,R6 

SENDMIOM 

SENDMIOM 

R8,CHKP0INT 

R8,4 

R7,R8, 0(360) 

R7,MSFPR0G 



^DISPLAY SEGMENT IN BITS 4-7. 
_ SE6. NUMBERS. 



36 

37 Hi 

38 H% 

39 Hi 

40 Hi 



41 
42 
43 
44 
45 
46 
47 
48 
49 



TRBL 
TBL 0501 
TEST 5 
SEGMENT 1 
PR CTAPM 



JK18,JK0 



EXPECTED OUTPUT MFSSAGE. 
DGN TAPE 5 01 R9 R10 R11 

MTC 68-20 JK18 TAPE UNIT CONTROLLER 
MTC 68-15 MINI-RECORDER 



COMMON TAPE MAINTENANCE 
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TOC DIAGNOSTIC PROGRAM. 

TEST 5 MISCELLANEOUS RECORDER FUNCTIONS. 



-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-002- 
-002- 
-001- 
-001- 
-001- 



JSL 



01 #8 TBL 1501 

02 Hi TEST 5 

03 #8 SEGMENT 1 

04 HI PR CTAPM 
I 

EXPECTED OUTPUT MESSAGE. 
DGN TAPE 1 5 01 R9 R10 R11 



05 

06 

or 

08 
09 
10 
11 
12 
13 
14 
15 



9:34:51 2/07/81 **** 
CTAPM W77D 



MTC 60-20 JK18 TAPE UNIT CONTROLLER 
MTC 60-15 MINI-RECORDER 1 



SEGMENT 1 DESCRIPTION. 



A FAST SPEED ORDER WAS SENT TO THE MINJ-RECORDER. SUFICIENT 
TIME WAS ALLOWED TO ELAPSE FOR THE TACH TO INDICATE THAT 

16 4' THE TAPE WAS IN MOTION (TIM). THE STATUS OF THE TRANSPORT 

17 * DID NOT REFLECT THIS SITUATION. R11 CONTAINS THE SECONDARY 

18 H STATUS RESPONSE. 

19 HI TBLEND 



0131326 

0131326 02 001505 037020 132224 0132224 

0131330 02 001507 103641 002015 

0131332 

0131332 02 001511 037020 132064 0132064 

0131334 02 001513 124272 

0131335 02 001514 055502 0131037 

0131336 02 001515 003202 

0131337 02 001516 010614 

0131340 02 001517 016170 000360 
0131342 02 001521 034560 043463 CTSD 



-001- 



-001- 



-001- 
-001- 
-001- 
-001- 
-001- 



23 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



CALL 

BSA 

LI 

CALL 

BSA 

TBN 

BNC 

SEGADD 

LN 

RLN 

IRM 

STL 



WAIT1 

WAIT1 

R10,TSTAT 

SENDMIOM 

SENDMIOM 

R11,S(TIM) 

XERRMSGPOX 

R8,CHKP0INT 

R8,4 

R7,R8, 0(360) 

R7,MSFPR0G 



(HALLOW TACH TO REACH SPEED 



U IS TAPE MOVING 

*TAPE SHOULD BE DOING FAST SPEED 



^DISPLAY SEGMENT IN BITS 4-7. 
_ SEG. NUMBER-2. 



0131344 



-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 



39 TRBL JK16,JK19,JK0 

40 *& TBL 0502 

41 n TEST 5 
U SEGMENT 2 
HI PR CTAPM 
U 

EXPECTED OUTPUT MESSAGE. 
DGN TAPE 5 02 R9 R10 R11 



42 

43 
44 
45 
46 
47 
48 
49 



MTC 68-22 JK16 TAPE UNIT CONTROLLER 
MTC 68-19 JK19 TAPE UNIT CONTROLLER 



COMMON TAPE MAINTENANCE 
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TDC DIAGNOSTIC PROGRAM. 

TEST 5 MISCELLANEOUS RECORDER FUNCTIONS. 



-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-002- 
-002- 
-002- 
-001- 
-001- 
-001- 



9:34:51 2/07/81 **** 
CTAPM W77D 



01 
02 
03 
04 



MTC 68-15 MINI-RECORDER 



05 n 

06 tf& 

07 Hi 

08 #8 

09 If 



10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 



TBL 1502 
TEST 5 
SEGMENT 2 
PR CTAPM 

EXPECTED OUTPUT MESSAGE. 
DGN TAPE 1 5 02 R9 R10 R11 

MTC 60-22 JK16 TAPE UNIT CONTROLLER 
MTC 60-19 JK19 TAPE UNIT CONTROLLER 
MTC 60-15 MINI-RECORDER 1 

SEGMENT 2 DESCRIPTION. 



THE FAST SPEED UNDER TEST HILL BE STOPPED BY THIS SEGMENT. 
THE TAPE STOP ORDER WAS SENT TO THE TRANSPORT AND THE 
SECONDARY STATUS INDICATED THAT THE TAPE WAS STILL IN MOTION 
AFTER 100 MSEC. 
23 Aft TBLEND 



0131344 02 001523 003641 000015 27 

28 
0131346 29 

0131346 02 001525 037020 132064 0132064 -001- 30 
0131350 31 

0131350 02 001527 137020 132227 0132227 -OOi- 32 

0131352 02 001531 103641 002015 

0131354 35 

0131354 02 001533 037020 132064 0132064 -001- 36 

0131356 02 001535 124272 37 

0131357 02 001536 054460 0131037 38 

0131360 02 001537 036060 131314 0131314 39 

40 

0131362 02 001541 003203 -001- 41 

0131363 02 001542 010614 -001- 42 

0131364 02 001543 016170 000360 -001- 43 
0131366 02 001545 034560 043463 CTSD -001- 44 

-001- 45 



LI 



R10,TST0P 



28 #STOP TAPE UNIT 

CALL SENDMIOM 
BSA SENDMIOM 
CALL WAIT1S 
BSA WAIT1S 
CHECK TH*T TAPE HAS STOPPED. LOOK AT TIM. 



U WAIT 1 SEC FOR UNIT TO STOP 



LI 


R10,TSTAT 


CALL 


SENDMIOM 


BSA 


SENDMIOM 


TBN 


R11,S(TIM) 


BC 


XERRMSGPOX 


BX 


R3, OTHER 


SEGADD 




IN 


R8,CHKP0INT 


RLN 


R8,4 


IRM 


R7,R8, 0(360) 


STL 


R7,MSFPR0G 



H SEND STATUS REQUEST. 

n LOOK FOR MOTION 

♦"SEND OTHER TAPE FAST SPEED. 



^DISPLAY SEGMENT IN BITS 4-7. 
SEG. NUMBER=3. 
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A03 


TDC DIAGNOSTIC PROGRAM. 




9:34:51 2/07/81 **** 


TEST 5 MISCELLANEOUS RECORDER FUNCTIONS. 


CTAPM W77D 


0131370 ' 


01 


TRBL JKO 




-001- 02 


#8 TBL 0503 




-001- 03 


#8 TEST 5 




-001- 04 


n SEGMENT 3 




-001- 05 


#8 PR CTAPM 




-001- 06 


$ 




-001- 07 


II EXPECTED OUTPUT MESSAGE. 




-001- 08 


» DGN TAPE 5 03 R9 R10 R11 




-001- 09 


n 




-001- 10 


n MTC 68-15 MINI-RECORDER 




-001- 11 


n 




-001- 12 


n 




-001- 13 


n 




-001- 14 


Hi. TBL 1503 




-001- 15 


Hi TEST 5 




-001- 16 


n SEGMENT 3 




-001- 17 


#8 PR CTAPM 




-001- 18 


f¥ ." - 




-001- 19 


U EXPECTED OUTPUT MESSAGE. 




-001- 20 


DGN TAPE 1 5 03 R9 R10 R11 




-001- 21 


n 




-002- 22 


# MTC 60-15 MINI-RECORDER 1 




-001- 23 


* 


* 


-001- 24 


» SEGMENT 3 DESCRIPTION. 




-001- 25 


n 




26 


U AT THIS POINT MOST OF THE TAPE FUNCTIONS SEEM TO BE OPERATIVE. 




27 


U IT IS NOW TIME TO DIAGNOSE THE BOT SENSORS. THE TAPE HANDLER 




28 


H WILL BE PROMPTED TO POSITION THE TAPE 20 BLOCKS FROM THE BOT 


* 


29 


U POSITION. IF THE FAST SPEEDS ARE OPERATING CORRECTLY, IT SHOULD 




30 


# NOT TAKE MORE THAN 1 MINUTE TO GET TO BLOCK 20. HOWEVER, THE 




31 


U 1 MINUTE TIME LIMIT HAS BEEN EXCEEDED. THIS MAY BE DUE TO GROSSLY 




32 


* OUT OF SPEC. FAST SPEEDS. 




33 


#8 TBLEND 




37 


* THIS SEGMENT WILL TEST FOR A BURNT OUT LED ON THE 




38 


U BOT-EOT SENSOR. IT IS ASSUMED AT THIS POINT THAT THE READ 




39 


AND POSITIONING COMMANDS ALL FUNCTION CORRECTLY 




40 


THE TAPE HANDLER POSITIONING ROUTINES WILL BE USED TO GET TO A 




41 


H LOCATION 20 BLOCKS AWAY FROM THE BOT. 




42 


U THIS IS A SAFE DISTANCE TO POSITION WITHOUT FEAR OF HITTING BOT. 




43 


H THEN 20 BACKSPACE ORDERS WILL INCH THE TAPE TO THE FIRST BLOCK 




44 


U ON THE TAPE. 


0131370 02 001547 031400 043337 CTSD 


45 


LAL R0,TUSTAT,RA1 ATCLEAR OUT POSITION OK BIT. 
LAX R0,R4(RA1) 


0131372 02 001551 043404 


46 


0131373 02 001552 062720 


47 


ZBS 0(RA1),S(P0S0K) 


0131374 02 001553 031400 043317 CTSD 


48 


LAL R0,TCBADR,RA1 # POSOK BIT MUST BE RESET DUE TO FAST SPEED 

TEST. 


COMMON TAPE MAINTENANCE 
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BD3 



TDC DIAGNOSTIC PROGRAM. 

TEST 5 MISCELLANEOUS RECORDER FUNCTIONS. 

0131376 02 001555 003401 00002* 

0131400 02 001557 044405 

0131401 02 001560 003421 014527 MASACS 
0131403 02 001562 002427 017777 

0131405 02 001564 003003 CTAPH 

0131406 02 001565 044412 

0131407 

0131407 -001- 
0131407 02 001566 073022 -002- 

0131410 02 001567 004541 -001- 

0131411 02 001570 106040 

0131412 

0131412 

0131412 02 001571 137020 132224 0132224 -001- 

0131414 02 001573 106002 

0131415 

0131415 02 001574 037020 111364 CSYSUB -001- 
0131417 02 001576 155361 0132000 

0131420 02 001577 040412 

0131421 02 001600 014000 

0131422 02 001601 055770 0131412 

0131423 

0131423 02 001602 131400 043337 CTSD 

0131425 02 001604 042404 

0131426 02 001605 017400 177424 

0131430 02 001607 055350 0132000 

0131431 02 001610 003204 -001- 

0131432 02 001611 010614 -001- 

0131433 02 001612 016170 000360 -001- 
0131435 02 001614 034560 043463 CTSD -001- 

-001- 



9:34s51 2/07/81 **** 
CTAPM W77D 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 WAT 



LI R0,20 

ST R0,N(L0GBLK)(RA1> 

LI R1,BLKMAX+*(ENDTRK) 

STH R1,N(LASTBLK)(RA1),M<LASTBLK>+M<ENDTRK) 



CTAPH IS NOW READY TO POSITION. 

LN RO,POSST 

ST R0,N(STATEWRD)(RA1> 

BGNTIM MIK'=1 

CALL TIMlUT 

BSAI UIMOdT 

DATA 2401 

LR R2,R0 



(KSET POSITION STATE INTO ACTION. 
0SET POSITION INTO PROGRESS. 



SUBROUTINE TIMOUT IS IN PROGRAM CSYSUB 
TIMOUT+1 



14 
15 
16 
17 
18 
19 
20 
21 
22 



25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



# LET TIME PASS. 



H HAS MAX. ALOTTED TIME ELAPSED? 
* TOO MUCH TIME HAS ELAPSEO ERROR. 



HAS CTAPH FINISHED POSITION REQUEST? 
NO 



CALL WAIT1 

BSA WAIT1 

LR R0,R2 

CALL TIMCHK 

BSA TIMCHK 

BNC ERRHSGPO 

L R0,N(STATEWRD)(RA1> 

TZ RO n 

BNC HAT * 

23 NEXTSTP 

24 H CHECK IF BLOCK 20 APPEARS IN TAPE STATUS WORD. 
LAL R0,TUSTAT,RA1 
LX R0,R4(RA1) 
CIRM R0,20,0,MSK<11) 
BNC ERRMSGPO 

# NEXT 20 BACKSPACES WILL BE SENT TO POSITION HEADS AT 
f» THE BEGINNING OF THE FIRST BLOCK ON THE TAPE 

SEGADD 

LN R8,CHKP0INT 

RLN R8,4 

IRM R7,R8, 0(360) 

STL R7,MSFPR0G 



^DISPLAY SEGMENT IN BITS 4-7. 



36 n SEG. NUHBER-4. 



0131437 



40 

41 



-001 

-001 

-001 

-001 

-001 

-001- 46 

-001- 47 

-001 

-001 



TRBL 
#8 TBL 0504 

42 #8 TEST 5 

43 HI SEGMENT 4 

44 #8 PR CTAPM 



JKO 



45 



48 
49 



EXPECTED OUTPUT MESSAGE. 
DGN TAPE 5 04 R9 R10 R11 

MTC 68-15 MINI-RECORDER 



COMMON TAPE MAINTENANCE 
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C03 



TDC DIAGNOSTIC PROGRAM. 

TEST 5 MISCELLANEOUS RECORDER FUNCTIONS. 

-001 
-001 
-001 
-001 
-001 
-001 
-001 
-001 
-001 
-001 
-001 
-002 
-001 
-001 
-001 



0131*37 02 
0131441 02 
0131443 
0131443 
0131443 02 
0131445 

0131445 02 

0131446 02 
0131447 

0131447 02 
0131451 02 



0131453 
0131453 02 
0131455 
0131455 02 
0131457 02 
0131461 
0131461 

0131463 02 

0131464 02 

0131465 02 

0131466 02 



001616 003441 000023 
001620 003641 006415 



001622 137020 132064 0132064 

001624 173022 

001625 000021 137020 MASACS 



02 



-001- 
-001- 



9:34:51 2/07/81 **** 
CTAPM W770 



01 
02 
03 



04 H TBL 1504 



- 05 



U TEST 5 

06 U SEGMENT 4 

07 #8 PR CTAPM 



08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 NXTBK 



001626 137020 132234 0132234 -001- 
001630 136040 131443 0131443 



001632 037020 132064 0132064 -001- 

001634 137020 132232 0132232 -001- 
001636 103641 002015 

001640 037020 132064 0132064 -001- 

001642 124276 

001643 055003 0131467 

001644 024272 

001645 055024 0131512 



26 
27 
28 
29 
30 
31 
32 
33 
.34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 



EXPECTED OUTPUT MESSAGE. 
D6N TAPE 1 5 04 R9 R10 R11 

MTC 60-15 MINI-RECORDER 1 

SEGMENT 4 DESCRIPTION. 



FROM 20 BLOCKS OUT, THE TAPE IS BACKSPACED TO THE FRONT OF 
BLOCK ZERO ON TRACK ZERO. FROM THIS POSITION ONE MORE BACKSPACE 
IS ISSUED AND 3 SECONDS ELAPSED BUT THE TAPE WAS NOT STOPPED AT 
THE BOT HOLES. TO PREVENT LOSS OF TAPE, A READ-A-BLOCK WAS GIVEN 
AFTER AN INIT ORDER TO POSITION THE TAPE IN A SAFE AREA OUTSIDE 
THE BOT REGION. 
#8 TBLEND 

LI R2,19 

LI R10,TBS 



U SUBROUTINE TIMOUT IS IN PROGRAM CSVSUB 



CALL SENDMIOM 

BSA SENDMIOM 

CALL TIMOUT 

BSAI TXIMOUT 

DATA REDKON 

CALL MYWAIT 

BSA MYWAIT 

BX R2,NXTBK 
AT THIS POINT THE TAPE SHOULD BE READY TO BACKSPACE 
TO THE BOT HOLES AND STOP. 

A BACKSPACE ORDER WILL BE SENT AND A SPECIFIC AMOUNT 
OF TIME ALLOWED TO ELAPSE BEFORE BOT FLAG IS LOOKED FOR. 



CALL 

BSA 

CALL 

BSA 

LI 

CALL 

BSA 

TBN 

BNC 

TBN 

3NC 



SENDMIOM 

SENDMIOM 

WAIT3S 

WAIT3S 

R10,TSTAT 

SENDMIOM 

SENDMIOM 

R11,S(B0T> 

EMGSTP 

rh,s(tim) 

BOOTST 



* WAIT FOR BACKSPACE TO EXECUTE. 



U TAPE AT BOT. IS IT STOPPED? 
# YES 
49 TERROR LED BURNT OUT. STOP UNIT AND ISSUE A RD1BLK TO PREVENT TAPE LOSS. 



COMMON TAPE MAINTENANCE 
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P03 



TOC DIAGNOSTIC PROGRAM. 

TEST 5 MISCELLANEOUS RECORDER FUNCTIONS. 



9:34:51 2/07/81 **** 
CTAPM W77D 



0131467 
0131467 
0131471 
0131471 
0131473 
0131473 
0131475 
0131477 
0131477 
0131501 
0131501 
0131501 
0131503 
0131505 
0131505 
0131507 
0131510 
0131511 



02 001646 103641 040007 

02 001650 037020 132064 

02 001652 137020 132224 
02 001654 103641 003415 



0132064 -001- 
0132224 -00V 



02 001656 037020 132064 0132064 -001- 

02 001660 137020 132224 0132224 -001- 
02 001662 103641 002015 

02 001664 037020 132064 0132064 -001- 

02 001666 124272 

02 001667 054771 0131501 

02 001670 053267 0132000 

-001- 



0131512 

0131512 02 001671 103641 007215 
0131514 



0131514 02 001673 003205 

0131515 02 001674 010614 

0131516 02 001675 016170 000360 
0131520 02 001677 034560 043463 CTSD 



0131522 



01 EMGSTP 

02 

03 

04 

05 

06 

07 

08 

0? 

10 WAITIM 

11 

12 

13 

14 

15 

16 

17 

18 



LI 

CALL 

BSA 

CALL 

BSA 

LI 

CALL 

BSA 



CALL 

BSA 

LI 

CALL 

BSA 

TBN 

BC 

B 

19 TAPEDGN OW 

20 NOTE 



R10,INIT 

SENDMIOM 

SENDMIOM 

WAIT1 

HAITI 

R10,TRB 

SENDMIOM 

SENDMIOM 

HAITI 

HAITI 

R10,TSTAT 

SENDMIOM 

SENDMIOM 

R11,S(TIM) 

HAITIM 

ERRMSGPO ''. 

************* THE FIRST ADDRESS OVERHRITTEN IS 001671 ********** 



24 % THE LAST TEST IS TO SEE IF THE UNIT COMMAND MILL REHIND THE TAPE. 
a LI R10,TINIT ^ i295g 

-001- 27 NOTE *************** THE LAST ADDRESS OVERHRITTEN IS 001672 ********** 
30 n AND POSITION IT AT LOAD POINT 



^DISPLAY SEGMENT IN BITS 4-7. 
SEG. NUMBER=5. 





31 


SEGADD 




-001- 


32 


LN 


R8,CHKP0INT 


-001- 


33 


RLN 


R8,4 


-001- 


34 


IRM 


R7,R8, 0(360) 


-001- 


35 


STL 


R7,MSFPR0G 


-001- 


36 n 




■ ■«■■!■■ IB ■■ - 



40 TRBL JK16,JK18,JK19,JK0 
-001- 41 *8 TBL 0505 
-001- 42 HI TEST 5 
-001- 43 Hi SEGMENT 5 
-001- 44 #» PR CTAPM 
-001- 45 # 

-001- 46 # EXPECTED OUTPUT MESSAGE. 
-001- 47 II DGN TAPE 5 05 R9 R10 R11 
-001- 48 n 
-001- 49 n MTC 68-22 JK16 TAPE UNIT CONTROLLER 
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TDC DIAGNOSTIC PROGRAM. 


9:34:51 2/07/81 


**** 






TEST 5 MISCELLANEOUS RECORDER FUNCTIONS. CTAPM 


W77D 








-001- 01 « MTC 68-20 JK18 TAPF UNIT CONTROLLER 










-001- 02 * MTC 68-19 JK19 TAPE UNIT CONTROLLER 










-001- 03 K MTC 68-15 MINI-RECORDER 










-001- 04 * 










-001- 05 n 










-001- 06 n 










-001- 07 #8 TBL 1505 










-001- 08 #8 TEST 5 










-001- 09 tl% SEGMENT 5 










-001- 10 #8 PR CTAPM 










-001- 11 » 










-001- 12 » EXPECTED OUTPUT MESSAGE. 










-001- 13 H DGN TAPE 1 5 05 R9 R10 R11 










-001- 14 H 










-002- 15 H MTC 60-22 JK16 TAPE UNIT CONTROLLER 










-002- 16 * MTC 60-20 JK18 TAPE UNIT CONTROLLER 










-002- 17 H MTC 60-19 JK19 TAPE UNIT CONTROLLER 










-002- 18 K MTC 60-15 MINI-RECORDER 1 










-001- 19 n 










-001- 20 # SEGMENT 5 DESCRIPTION. 










-001- 21 « 










22 # THE TRANSPORT INITIALIZE COMMAND IS SUPPOSE TO REWIND THE TAPE 








• 


23 n AND POSITION IT AT THE LOAD POINT. SINCE THE PREVIOUS SEGMENT LEFT 










24 n THE TAPE AT THE BOT HOLES, THIS SEGMENT EXPECTS THE TAPE STATUS 










25 # TO REFLECT THAT THE TAPE HAS BEEN MOVED OFF OF THIS MARK. THIS 










26 * SEGMENT HAS DETECTED THAT THE TAPE IS STILL AT THE BOT MARK OR 










27 U IS STILL IN MOTION. CHECK FOR TAPE OFF REEL. 










28 »& TBLEND 








0131522 


32 CALL SENDMIOM 








0131522 02 001701 037020 13206* 0132064 


-001- 33 BSA SENDMIOM 








0131524 


34 CALL WAIT3S # WAIT FOR TINIT TO FULL EXECUTE. 








0131524 02 001703 137020 132232 0132232 


-001- 35 BSA WAIT3S 








0131526 02 001705 103641 002015 


36 LI R10,TSTAT 








0131530 


37 CALL SENDMIOM 






. 


0131530 02 001707 037020 132064 0132064 


-001- 38 BSA SENDMIOM 








0131532 02 001711 103662 042000 


39 NI R11,M(B0T)+M(TIM) #HAS TAPE STOPPED AND OFF BOT. 








0131534 02 001713 055733 0131467 


40 BNC EMGSTP 








0131535 


41 CONTRTNX 








0131535 02 001714 137000 130570 0130570 


42 BL CONTRTN 
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TOC DIAGNOSTIC PROGRAM. 


9:34:51 2/07/81 **** 


TEST 6 MINI-RECORDER WRITE TEST. 


CTAPM W77D 


0131537 

■ 

0000006 


01 TWRITE 

02 H THIS IS THE FINAL TEST OF THE TDC AND TAPE DECK. 

03 H ALL WRITE FUNCTIONS MUST WORK TO PASS THIS TEST. THE CTAPH ROUTINES 

04 H WILL BE USED FOR THE ENTIER TEST. IT IS ASSUMED ALL POSITIONING AND 

05 H READ FUNCTIONS HAVE BEEN TESTED. THE DATA FOR THE WRITE 

06 It IS OBTAINED FROM THE MATE UNIT. IT MUST BE INSERVICE FOR 

07 U THIS TEST TO PASS. THIS TEST MUST PASS TO ASSURE THE 

08 It RE-ESTABLISHMENT OF THE DATA IN THE TEST BLOCKS. 

09 TEST SET TEST+1 


• 
■ 


13 TAPEDGN OW 0(1716) * 13668 
-001- 14 NOTE ************* THE FIRST. ADDRESS OVERWRITTEN IS 001716 ********** 

• 


• 

■ 


• 


■ 


■ 


. 






' 
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TDC DIAGNOSTIC PROGRAM. 

TEST 6 MINI-RECORDER WRITE TEST. 

' SEGINT 



9:34:51 2/07/81 **** 
CTAPM W77D 



01 MACRO 

02 SEGINT SEGNUM 

03 PMC SAVE, ON 

04 # **************************************************************** 

05 # INITIALIZE THE SEGMENT NUMBER TO DEC(SYSLST<1)> 

06 tt **************************************************************** 

07 SPACE 

08 LI R8,DEC<SYSLSTC1)> * LOAD SEGMENT NUMBER DEC(SYSLST(1>> INTO R8 

09 CALL DISPLAV # SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

10 SPACE 

11 PMC RESTORE 

12 MEND 



SEGINC 



16 MACRO 

17 SEGINC INC VAL"1, PRINTS 

18 JUMPF .LAB/PRINT' — 'Y' 

19 PMC SAVE, ON 

20 n ADD DEC(INCVAL) TO R8, TO SET-UP THE ENTRY TO THE NEXT SEGMENT 

21 PMC RESTORE 

22 .LAB NULLNP 

23 PMC SAVE, ON 

24 AN R8,DEC(INCVAL) # ADD DEC(INCVAL) TO THE SEGMENT IN R8 

25 CALL DISPLAY # SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

26 SPACE 

27 PMC RESTORE 

28 MEND 



SEGDEC 



32 MACRO 

33 SEGDEC DECVAL=1,PRINT=N 

34 JUMPF .LAB,'PRINT'-«'Y' 

35 PMC SAVE, ON 

36 n SUBTRACT DEC(DECVAL) FROM R8,T0 SET-UP THE ENTRY TO THE NEXT SEGMENT 

37 PMC RESTORE 

38 .LAB NULLNP 

39 PMC SAVE, ON 

40 SN R8,DEC(DECVAL) # SUBTRACT DEC(DECVAL) FROM THE SEGMENT IN R8 

41 CALL DISPLAY # SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

42 SPACE 

43 PMC RESTORE 

44 MEND 
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TDC DIAGNOSTIC PROGRAM. 

TEST 6 MINI-RECORDER WRITE TEST. 

SEGMULT 



SEGPRNT 



9:34:51 2/07/81 **** 
CTAPM M77D 



01 MACRO 

02 SEGMULT VAL1,VAL2,VALN 

03 JUMPF .ER0,N.SYSLST<2 

05 # THIS SECTION OF CODE MAKES-UP SEGMENTS MD0(_NDX«1 ,N.SYSLST-1 ;DEC<SYSLST(_NDX>, 
2) JAND DEC(SYSLST(N.SYSLST>,2) 

07 SPACE 

08 PMC RESTORE 

09 JUMPF .OUT 

10 .ERO NULLNP 

11 PMC SAVE, ON 

12 W NOTE MUST SPECIFY MORE THE 1 PARAMETER 

13 SPACE 

14 PMC RESTORE 

15 MEND 



19 MACRO 

20 SEGPRNT SEGNMBR 

21 PMC SAVE,ON 

22 # THIS IS PART OF SEGMENT DEC (SEGNMBR) 

23 PMC RESTORE 

24 MEND 
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TDC DIAGNOSTIC PROGRAM. 

TEST 6 MINI-RECORDER WRITE TEST. 



BO* 



01 PAGSCR LAYOUT 1,0FFSET-0 

02 CRCTBL ITEM 16 



04 

pagscb :QQ5:.Q5_8 

001 



9:34:51 2/07/81 **** 
CTAPM W77D 



n EOUATE THE CRC TABLE TO THE FIRST ENTERY OF 
PAGSCR 



LOEND 



CRCTBL 



i--Tr-r"Tr-r--Tr-r--^ 



14 PAGSCR LAYOUT 1,0FFSET-16 

15 STATUS ITEM 16 



PAGSCR 
161 



17 

.rSB5;_l§_8. 



(t E«UTE THE STATUS TABLE TO THE MIDDLE OF 
PAGSRC 



LOEND 



STATUS 



, ; i u i » i » r «| ffi i .p|fiiyi y u | ii..p y wy.f.fi p c r :. < . ,,, ,-, , ,,,. , j 
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TOC DIAGNOSTIC PROGRAM. 
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CO* 



01 H THIS IS A LAYOUT OF THE 

02 CRCTBL LAYOUT 16 

03 TPNO ITEM 16 

04 TSTNO ITEM 16 

05 ATOP ITEM 16 

06 CURTST ITEM 16 

07 STATS V ITEM 16 

08 INTSBR ITEM 1 

09 ERGOT ITEM 1 

10 PASS ITEM 1 

11 FAIL ITEM 1 

12 CATP ITEM 1 

13 ITEM 11 

14 BLKADDR ITEM 11 

16 TRK ITEM 2 

17 ITEM 16 

18 CRCTOYO ITEM 16 

19 CRCT1Y0 ITEM 16 

20 CRCT1Y1 ITEM 16 

21 CRCT2Y0 ITEM 16 

22 CRCT2Y1 ITEM 16 

23 CRCT3Y0 ITEM 16 

24 CRCT3Y1 ITEM 16 

25 CRCEXTR ITEM 16 

26 LOEND 



9:34:51 2/07/81 **** 
CTAPM W77D 



SCRATCH AREA USED BY THIS DIAGNOSTIC 



# INTERRUPT GENERATED 

M TEST FAILED 

U TEST PASS REPORT BIT 

n FAIL REPORT BIT 

11 USED IN TEST 6 ONLY 

U SPARE BITS 

BLOCK NUMBER OF THE 2ND LAST BLOCK OF THE 

TAPE 
H TRACK BITS OF THE TRACK/BLOCK ID 



THE CRC FOR TRACK ADDR. 0, BLOCK Y 

THE CRC FOR TRACK ADDR. 1, BLOCK Y 

THE C.U FOR TRACK ADDR. 1, BLOCK Y+1 

THE CRC FOR TRACK ADDR. 2, BLOCK Y 

THE CRC FOR TRACK ADDR. 2/ BLOCK Y*1 

THE CRC FOR TRACK ADDR. 3, BLOCK Y 

THE CRC FOR TRACK ADDR. 3, BLOCK Y+1 
THE 



EXTRA CRC TABLE LOCCATION 
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004 



TDC DIAGNOSTIC PROGRAM. 

TEST 6 MINI-RECORDER WRITE TEST. 

crcibL :QQ5;.Q1-L 

001 
01 1 

I 

02 1 

I 

03 1 

i ;. 

04 I 

I 
051 

I ^ T SEARI-BII&- 

061 T TRK 

1***********************1 I 

071 

i _; 

081' 
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TPNO 



TSTNO 



ATOP 



CURTST 



STATSV 



,.„„.,.l i i 1 J 

blkXddr 
_!k2c_oueeiR_0E_itti_2NeAft£i_eLfi£K-2E-itti_i*-ei 



091 

I 

101 

r 

111 

i 

121 

i 






"crctOyO 
IHE_£B£_E25_IB4£MBeB*-Q*_ei«2£K_I. 



crctTyc 



__IdE_£R£_£aa_IE4£|< Adbb a _1 a _&W0£H_I , 

crctTyT 
.mi_£5£-E2B-IB4tl<_*DBB i -lt_BWSC.!<_til 

CRCT2Y0 
-IBE_£B£_E0B_IBi4C|<,ftDBBx_i*_BU0£K_I 



CRCT?Y1 
iaE-£B£_E28_IE&£l<_4DBBi._2*-BUOC.K_Itl 



M E 8 

CT3Y0 



13) - - CRC1 

I mi_£S£-E2B_IB4£l<,ftBBB J .-3i,_BU0£l<_I„ 

141 CRCT3Y1 

I IBI_£B£-E2B_IB6£l<-&5BB*-5 t _fik2£l<_t±l. 

151 CRCEXTR 



r „ Tr - T — Tr - T — TJ . 



T~^T-rr-r^-^^ t ¥4 K -W^PH fi S-r-T l" I 1 I I I 1 i B" 
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TEST 6 MINI-RECORDER WRITE TEST. 
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01 STATUS 


LAYOUT 


16 


02 


ITEM 


16 


03 


ITEM 


16 


04 


ITEM 


16 


05 


ITEM 


16 


06 


ITEM 


16 


07 


ITEM 


16 


9 


ITEM 


16 


ITEM 


16 


10 STATOYC 


ITEM 


16 


11 STAT1YC 


ITEM 


16 


12 STAT1Y1 


ITEM 


16 


13 STAT2YC 


ITEM 


16 


14 STAT2Y1 


ITEM 


16 


15 STAT3YC 


ITEM 


16 


16 STAT3Y1 


ITEM 


16 


17 STAEXTF 


ITEM 


16 


18 


LOEND 





THE 
THE 
THE 
THE 
THE 
THE 
THE 
THE 



STATUS FOR TRACK ADDR. 0, BLOCK Y 



STATUS 
STATUS 
STATUS 
STATUS OF 
STATUS OF 
STATUS OF 



OF 
OF 
OF 



TRACK ADDR 
TRACK ADDR. 
TRACK ADDR. 
TRACK ADDR. 
TRACK ADDR. 
TRACK ADDR 



1, 
1, 

1: 

3, 
3, 



BLOCK 
BLOCK Y+1 
BLOCK Y 
BLOCK Y+1 
BLOCK Y 
BLOCK Y+1 



EXTRA STATUS TABLE LOCCATION 














',';.' 


















■ 


. 




, 














. : 


, 


■ 














. ■ 
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TOC DIAGNOSTIC PROGRAM. 

TEST 6 MINI-RECORDER WRITE TEST. 



9:34:51 2/07/81 
CTAPM 



W77D 



STAIUS. 
00 1 

L .. 

011 

I - . 

021 

I — 

031 

I _. 
041 

I 
051 

I 
061" 

I 

071 



:QQ5:.Ql-8. 



061 

I 

091 

I. 
101 

I 
111" 

I 
121 

I. 
131 

I 
141 

I. 
151 

I 

I 



"statOyS" 



_IHI_SIA.IUS_E2S-IB.ACH _A__R____,_e_OC_l__-,_. 
STATUO 

_-i-_--iaiy&-G£-iB--0-M*-_--e_____i__ 

STATHT 

_I---SIAI-S_2E-I-&-l-_&g£8 i -l*_eL__!-_I±l- 
STAT2Y0 

__I_i_£I&I-S_2E-I-4-LA---------U_.l--I_. 

STAT2Y1 



.I-l__I4IUI__£_I-A--,AB------_t-2_l<--+l- 

stat3yo 



„I____I_I_-_2£-I5A_!< A--B_____t-P._____ 
STAT3YT 

.Illf--I&Il.S_e£-IEA-l--A---i.-3*-&k_-_-I±l- 
STAEXTR 



______„____--— TJ . 



.....-.-.-.-------.-^---ItiE^^^^^ 
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TOC DIAGNOSTIC PROGRAM. 

TEST 6 MINI-RECORDER WRITE TEST. 



0000001 


01 FATAL EQU 




02 CRC TEXT 


0000007 


03 CLRTABX EQU 


0000010 


04 TABLTOP EQU 


0000011 


05 SNDYOENT EQU 


0000015 


06 LSTYOENT EQU 


0000012 


07 FSTY1ENT EQU 


0000016 


08 LSTY1ENT EQU 



0000002 



60* 



1 * 

'BUFLEN' * 

N(CRCEXTR)-N(CRCTOYO) 
N(CRCTOYO) K 
N(CRCTUO) * 
N(CRCT3Y0> U 
N(CRCT1Y1) * 
N (CRCT3Y1 ) If 

09 tf THE NEXT ENTRY WITH THE SAME BLOCK 

10 NXTY1ENT EQU N(CRCT3Y1 )-N(CRCT2Y1 ) 



9:34:51 2/07/81 **** 
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A HARD ERROR ON THE FIRST READ OF A 
THE CRC IS THE LAST WORD IN THE I_0 
# THE LENGTH OF THE TABLE MINUS 1 
THE INDEX TO THE FIRST ENTRY 
THE TRACK 1, BLOCK Y ENTRY 
THE LAST V ENTRY IN THE TABLES 
INDEX TO THE FIRST Y+1 BLOCKS 
THE LAST Y+1 ENTRY IN THE TABLES 
NUMBER 



BLOCK 
BUFFER 
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TDC DIAGNOSTIC PROGRAM. 
TEST 6 MINI-RECORDER WRITE TEST. 
0131537 



9:34:51 



2/07/81 **** 



CTAPM 

01 TWRITE 

02 n THIS IS THE FINAL TEST OF THE TDC AND THE MINI-RECORDER 

03 # ALL WRITE FUNCTIONS ARE TESTED. SUBROUTINES ARE 

04 It USED AS 'GO-BETWEENS' FROM THE DIAGNOSTIC TO THE SYSTEM 

05 # IT IS USED IN. THIS TEST ASUMES THAT THE READ CIRCUITS AND 

06 U POSITION CIRCUITS HAVE PASSED THEIR RESPECTIVE DIAGNOSTIC TESTS. 



W77D 



0131537 02 001716 103561 000006 

0131541 02 001720 003200 

0131542 

0131542 02 001721 037020 117767 0117767 -001- 



10 

11 
12 
13 
14 
15 
16 
17 
18 

20 
21 
22 
23 



K THE TEST SENDS A FAST FORWARD COMMAND TO THE TRANSPORT,WHEN THE 

# TAPE HAS STOPPED MOVING, THE TAPE IS BACKSPACED TWO BLOCKS. THE 
H DIAGNOSTIC DOES A SERIES OF READS AND WRITES TO DETERMINE IF ANY 
» FAULTS EXIST IN THE WRITE HEADS, THE WRITE HEAD SELECT, OR THE 

« SPEED OF THE TRANSPORT. THE DATA WRITTEN ON THE TAPE IS GENERATED 

# BY A SUBROUTINE WHICH USES THE SYSTEM CLOCK. 

# THIS DIAGNOSTIC DOES NOT RELY ON THE DATA ON TAPE (EXCEPT TRACK 
ff ADDR. 0). THIS TEST WILL RUN A CHECK ON THE WRITE CIRCUITS IF 

It THERE IS ONLY ONE BLOCK ON THE TAPE. 



LI 
ZR 

CALL 
BSA 



R7,6 
RS 

DISPLAY 
DISPLAY 



n FIRST SET THE TEST NUMBER <R7) E9UAL TO 6 

It THEN CLEAR THE SEGMENT NUMBER (R8) 

# SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 
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BOS 



TOC DIAGNOSTIC PROGRAM. 

TEST 6 MINI-RECORDER WRITE TEST. 



0131544 




0131544 
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0131544 



01 UHHUHHH»HH»HH»nHtt»*nittl»n*»»HHHHHHmHHnH*HttHll##HHtlUHtti1H<IU1llt1tttnitn* 

A REGISTER MAP. IT STATES THE REGISTER NAME AND ITS USE 

USE 

SCRATCH (AND RETURN CODES FROM SUBROUTINES) 

SCRATCH 

SET UP FOR BX COUNTER WHEN CHECKING FOR HARD ERRORS 

INDEX THROUGH THE BLOCKS OF THE STATUS TABLE 

CURRENT STATUS INFORMATION 

CURRENT CRC FROM THE I BUFFER TO THE TABLE 

CURRENT TRACK/BLOCK IDENTIFIER 

CURRENT TEST NUMBER 

CURRENT SEGMENT NUMBER 

CONTAINS THE CHANNEL/SUBCHANNEL OF THE TDC UNDER TEST 

CONTAINS ANT MESSAGES (DATA OR COMMANDSUO THE TDC 

RECEIVES REPLIES (DATA OR STATUS) FROM THE TDC 

THE BASE ADDRESS OF THE CRC TABLE (CRCTBL) 

STATUS TABLE BASE ADDRESS (STATUS) 

»itnitn#»nn»nnn»nnnnnitit«»«ii»n»nnnit»nnn»nnnninnni#nnii»nnmntnnn#nitnn*n 



02 




03 n 


rHis is 


04 




05 n 


REG 


06 




07 n 


RO 


08 n 


R1 


09 * 


R2 


10 * 


R3 


11 * 


R4 


12 * 


R5 


13 # 


R6 


14 


R7 


15 n 


R8 


16 * 


R9 


17 * 


R10 


18 H 


R11 


19 n 


RAO 


20 # 


RA1 


21 




22 ## 


HHttnttttti 
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COS 



TOC DIAGNOSTIC PROGRAM. 
TEST 6 MINI-RECORDER WRITE TEST, 
t 

0131544 02 001723 171420 
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01 # SAVE ALL THE REGISTERS SO THIS TEST CAN USE THE REGISTERS 

02 H AS PLANNED AND THEN RESTORE THEM TO WHAT EVER THE 

03 $ DIAGNOSTIC MONITOR EXPECTS THEM TO BE 

04 HA 
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P05 



TOC 0IA6N0STIC PROGRAM. 
TEST 6 MINI-RECORDER WRITE TEST. 
01315*5 



01315*5 02 00172* 003601 000001 

01315*7 

01315*7 02 001726 037020 117767 0117767 



0131551 

0131551 02 001730 137020 117712 0117712 

0131553 02 001732 155100 0131653 



9:34:51 2/07/81 **** 
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-001- 
-001- 
-001- 

-001- 
-001- 
-002- 



-001- 



01 SEGINT 1 

02 tf a*************************************************************** 

03 # INITIALIZE THE SEGMENT NUMBER TO 1 

0* # **************************************************************** 



06 
07 
08 



LI 

CALL 

BSA 



R8,1 

DISPLAY 

DISPLAY 



It LOAD SEGMENT NUMBER 1 INTO R8 

n SHOW THE SEGMENT ON THE SSP'S L.E.D. 



10 n CALL THE ROUTINE TO SET-UP THE DIAGOSTICS SPECIAL INITIALIZATION 

11 U WHICH IS SYSTEM DEPENDENT 

It CALL THIS TO SET UP THIS TEST 

U IT AN ERROR HAS OCCURED THE 'CF' WILL BE 
CLEARED 



13 


CALL 


SYSTSET 


1* 


BSA 


SYSTSET 


15 


BNC 


ERR0R2 



013155* 

013155* 

013155* 02 001733 00*601 

0131555 

0131555 02 00173* 037020 117767 0117767 



-001- 

-001- 
-001- 
-002- 



20 
21 
22 
23 
24 
25 



SEGPRNT 2 
H THIS IS PART OF SEGMENT 2 



SEGINC 
AN 
CALL 
BSA 



R8,1 

DISPLAY 

DISPLAY 



# ADD 1 TO THE SEGMENT IN R8 

U SHOW THE SEGMENT ON THE SSP'S L.E.D. 'S 






0131557 02 001736 131000 0*3112 CTSD 
0131561 02 0017*0 031*00 0*3132 CTSD 
0131563 02 0017*2 003*61 000007 

0131565 02 0017** 0031*0 

0131566 

0131566 02 0017*5 1*61*3 

0131567 02 0017*6 0*65*3 

0131570 02 0017*7 036060 131566 0131566 



30 U THIS STEP OF THE TEST IS DESIGNED TO ZERO THE STATUS TABLE. 

31 ft THIS TABLE IS USED TO KEEP TRACK OF THE STATUS OF THE BLOCKS 

32 n ON TAPE WHICH THE DIAGNOSTIC IS TRYING TO READ AND/OR WRITE 

33 * THE BASE ADDRESS IS OFFSET TO POINT THE RAO AND RA1 TO THE PARTS 
# OF THE TABLE WHICH NEEDS TO BE ZEROED 



3* 
36 

11 

40 



LAL 
LAL 
LI 

ZR 



*2 CLRTBL 

** 
♦5 

*7 



STX 
STX 

BX 



RO,N(CRCTOYO)+CRCTBL,RAO If SET UP THE START OF THE CRC TABLE 
R0,N(STAT0Y0)+STATUS,RA1 If SET UP THE START OF THE STATUS TABLE 
R3,CLRTABX H LOAD R3 WITH THE LENGTH OF THE TABLE MINUS 

R6 * ZERO R6 TO CLEAR THE TABLE ENTERIES 



R6,R3(RA0) 
R6,R3(RA1) 

R3, CLRTBL 



tt STORE ZERO INTO THE CRC TABLE INDEXED BY R3 
» STORE ZERO INTO THE STATUS TABLE INDEXED BY 

R3 
H BX USING R3 UNTILL THE TABLE IS CLEARED 
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TDC DIAGNOSTIC PROGRAM. 

TEST 6 MINI-RECORDER WRITE TEST. 



0131572 02 001751 031000 043102 CTSD 
0131574 02 001753 031400 043122 CTSD 



E05 



9:34:51 2/07/81 **** 
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01 U NOW SET UP THE RA REGISTERS WITH THE RIGHT BASE ADDRESS FOR THE 

02 # FOR THE REST OF THIS TEST 



04 
05 



LAL 

LAL 



R0,CRCTBL,RA0 
RO, STATUS, RA1 



# LOAD RAO WITH THE ADDR. OF THE CRC TABLE 

# LOAD RA1 WITH THE ADDR. OF THE STATUS TABLE 
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TDC DIAGNOSTIC PROGRAM. 

TEST 6 MINI-RECORDER WRITE TEST. 



01 
02 

03 
04 
OS 
06 
07 
08 
09 



FgS __ — 

9:34:51 2/07/81 **** 
CTAPM W77D 

# FIRST SEND A F/F COMMAND TO THE TRANSPORT. WHEN EOT IS DETECTED/TWO 
« BACKSPACE COMMANDS ARE SENT .THE BLOCK THAT THE TRANSPORT STOPS 

» AT IS READ TO DETERMINE IF IT IS PAST THE RANGE OF NORMAL STSTEM 

n DATA. (THIS BLOCK WHICH IS READ IS BLOCK Y) 

n IF BLOCK Y'S BLOCK NUMBER IS LESS THAN BLKMAX, THEN NO TESTS CAN 

# BE RUN. IF BLOCK Y'S BLOCK NUMBER IS GREATER THAN BLKMAX (MOST 
H OF THE TIME), THEN ALL TESTS ARE RUN. IF THE BLOCK Y 

H IS BLKMAX, THEN THE NEXT BLOCK IS READ AND USED AS BLOCK Y, BUT 
n NO SPEtD TEST IS RUN. 



13 » CHECK IF THE TAPE IS AT EOT NOW. 



0131576 

0131576 02 001755 103641 002015 

0131600 

0131600 02 001757 037020 111050 CSYSUB 

0131602 02 001761 124270 

0131603 02 001762 055005 0131610 

0131604 

0131604 02 001763 004602 

0131605 

0131605 02 001764 037020 117767 0117767 

0131607 02 001766 153061 0131670 



15 CHECK 



-001 • 



-001- 
-001- 
-001- 
-002- 



LI 

CALL 
BSA 
TBN 

BNC 
SEGINC 



R10,TSTAT 

SENDMIO 

SENDMIO 

R11,S(E0T) 

FASTFOR 

2,Y 



n CHECK 2ND STAT FOR EOT FLAG 



17 
18 
19 
20 
21 

22 OLUllHi C / I 

23 It ADD 2 TO R8, TO SET-UP THE ENTRY TO THE NEXT SEGMENT 

24 

25 

26 



AN 

CALL 

BSA 



R8,2 

DISPLAY 

DISPLAY 



n IS THE EOT FLAG SET? 

* IF THE TAPE IS NOT AT EOT, GET IT THERE 



U ADD 2 TO THE SEGMENT IN R8 

# SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 



28 



B 



ATEOT 



U BRANCH TO ATEOT IF TAPE IS AT EOT. 
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605 


TOC DIAGNOSTIC 


PROGRAM. 








9:34:51 2/07/81 **** 


TEST 6 MINI-RECORDER WRITE TEST. 








CTAPM W77D 


0131610 








01 


FASTFOR 




0131610 02 


001767 


103641 002415 




03 


LI 


R10,TFF # PREPARE TO ISSUE FAST FORWARD 


0131612 








04 


CALL 


SENDMIO 


0131612 02 


001771 


037020 111050 CSYSUB 


-001- 


05 
06 

08 


BSA 
DINSERT NOTE 

DDELETE NOTE 


SENDMIO 

' BGNTIM SEC-50 <f MAXIMUM TIME TO EACH EOT FROM BOT (WITHIN 

SPEC.) 
4 


W0131614 02 


001773 


137020 111375 CSYSUB 




09 


BSA 


TIMOUT 


0131616 02 


001775 


003721 




10 


DATA 


2001 


0131617 02 


001776 


106040 




11 
13 


LR 
TAPEOGN OW 


R2,R0 U SAVE TIME CONSTANT. 
0(1777) (K3E790207 








-001- 


14 
17 


NOTE 
CPATCH3 BGNP 


************* THE FIRST ADDRESS OVERWRITTEN IS 001777 ********** 
0(72) (K3E790207 


0131620 02 


-001- 


18 


BL 


XXX571 








-001- 


19 


NOTE 


CPATCH3 'CSECT' 








-001- 


20 


NOTE 


***************** PATCH AREA BEGINS AT 000072 **************** 


0115165' 






-001- 


23 


XXX571 PATCHAREA 


0115165 








24 


CALL 


TEMPINH fflnform Dispatcher to wait 1 Base level loop 


0115165 06 000072 


137020 147320 BLMMA 


-001- 


25 


BSA 


TEMPINHl 


0115167 








26 




^before returning from the real time break. 


0115167 








27 


CALL 


WAIT #Take a real time break. 


0115167 06 


000074 


173025 


-001- 


28 


BSAI 


WXAIT U SUBROUTINE WAIT IS IN PROGRAM CBLM 


0115170 








29 


ENDP 


03E79O2O7 


0115170 06 


000075 


137000 131622 0131622. 


-001- 


30 


BL 


XXX575 








-001- 


31 


NOTE 


************ LAST PATCH ADDRESS USED IS 000076 *************** 








-001- 


32 


NOTE 


***** NUMBER OF PATCH WORDS USED IS 5 (DECIMAL) ******** 


0131622 






-001- 


35 


XXX575 OWCONTINUE 


0131622 








36 


EOW 


«E790207 








-001- 


37 


NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 002000 ********** 


0131622 02 


002001 


103641 002015 




41 


LI 


R10,TSTAT # SET-UP R10 WITH THE SECONDARY STATUS 
REQUEST 


0131624 








43 


CALL 


SENDMIO » SEND IT TO THE TDC 


0131624 02 


002003 


037020 111050 CSYSUB 


-001- 


44 


BSA 


SENDMIO 


0131626 02 


002005 


124272 




45 


TBN 


R11,S(TIM) U HAS THE TAPE STARTED MOVING YET? 


0131627 02 


002006 


055024 0131653 




46 


BNC 


ERR0R2 H BRANCH TO AN ERROR IF NOT 
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TOC DIAGNOSTIC PROGRAM. 

TEST 6 MINI-RECORDER WRITE TEST. 

0131630 ' 

0131630 

0131630 02 002007 004601 

0^31631 02 002010 037020 117767 0117767 

0131633 



W0131633 02 002012 137020 002*22 CBLM 
0131635 02 002014 103641 002015 
0131637 
0131637 02 002016 037020 111050 CSYSUB 

0131641 02 002020 124272 „.-,.-. 

0131642 02 002021 055013 0131655 

0131643 02 002022 006002 



W0131644 02 

0131646 02 

0131647 02 
0131651 
0131651 02 

0131653 

0131653 02 

0131655 

0131655 

0131655 

0131655 02 
0131656 

0131656 02 

0131660 02 

0131661 02 

0131662 02 

0131663 02 



002023 037020 111364 
002025 154765 



CSYSUB 
0131633 



-001- 

-001- 
-00V 
-002' 



01 
02 
03 
04 
05 
06 



A06 



SEGPRNT 3 
THIS IS PART OF SEGMENT 3 
SEGINC 

AN R8,1 
CALL DISPLAY 
BSA DISPLAY 



-001- 



002026 003641 040007 

002030 037020 111050 CSYSUB -001- 

002032 137000 117670 0117670 



08 CALW1 

10 DINSERT NOTE 

11 DDELETE NOTE 

12 BSA 

13 LI 

14 CALL 

15 BSA 

16 TBN 

17 BNC 

18 LR 

19 DINSERT NOTE 

20 DDELETE NOTE 

21 BSA 

22 BC 

23 » IF THE TAPE 

24 LI 

25 CALL 

26 BSA 

28 ERR0R2 
30 BL 
32 EOTCHCK 



9:34:51 2/07/81 **** 
CTAPM W77D 



U ADD 1 TO THE SEGMENT IN R8 

* SHOW THE SEGMENT ON THE SSP'S L.E.D. 



U TAKE A REAL TIME BREAK. 



# GET SECONDARY STATUS FROM THE CTTC 



CHECK IF THE TAPE HAS STOPPED 
BRANCH IF IT HAS STOPPED 



* CALL WAIT 
2 

WAIT 

R10,TSTAT 
SENDMIO 
SENDMIO 
R11,S(TIM> 
EOTCHCK 
R0,R2 
1 CHKTIM 
2 

TIMCHK 
CALW1 
HAS NOT STOPPED, STOP IT AND RETURN AN ERROR 
RIO INIT * SET-UP THE INITIATE COMMAND TO THE SPI 

SENDMIO * SEND IT OUT 

SENDMIO 



H HAS TIMEOUT OCCURRED? 



ERRORS 



002034 104601 

002035 037020 117767 



34 
-001- 35 

36 

-001- 37 

-001- 38 

0117767 -002- 39 



SEGPRNT 4 
THIS IS PART OF SEGMENT 
SEGINC 

AN R8,1 
CALL DISPLAY 
BSA DISPLAY 



002037 124270 

002040 054007 

002041 024271 

002042 054770 



0131670 
0131653 



41 
42 
43 

44 



TBN 


R11,S<E0T) 


BC 


ATEOT 


TBN 


R11,S(T0R> 


BC 


ERR0R2 



# GO TO PROCESS THE ERROR 



U ADD 1 TO THE SEGMENT IN R8 

# SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 



tt CHECK IF THE TAPE IS AT EOT 

H CONTINUE IF IT IS 

# CHECK IF THE TAPE IS OFF THE REEL 

It BRANCH IF IT IS 






COMMON TAPE MAINTENANCE 

9:34:51 2/07/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPM 



PR-1C958-50 
ISSUE 06 PAGE 



96 



• • 



• • 



• • 



TDC DIAGNOSTIC PROGRAM. 
TEST 6 MINI-RECORDER WRITE TEST. 
0131664 

0131664 

0131664 02 002043 004601 

0131665 

0131665 02 002044 037020 117767 0117767 



B06 



01 SEGPRNT 5 
-001- 02 # THIS IS PART OF SEGMENT 5 

03 SEGINC 
-001- 04 AN R8,1 
-001- 05 CALL DISPLAY 
-002- 06 BSA DISPLAY 



0131667 02 002046 153764 



0131653 



08 



B 



ERR0K2 



9:34:51 2/07/81 **** 
CTAPM H77D 



it ADD 1 TO THE SEGMENT IN R8 

# SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 



§ THERE IS AN ERROR (NO TIM, NO TOR,N0 EOT 
AFTER 50 SEC.) 
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TDC DIAGNOSTIC PROGRAM. 

TEST 6 MINI-RECORDER WRITE TEST. 
0131670 
0131670 

0131670 

0131670 02 002047 104602 

0131671 

0131671 02 002050 037020 117767 0117767 

0131673 02 002052 103041 

0131674 

0131674 02 002053 103641 006415 
0131676 

0131676 02 002055 037020 111050 CSYSUB 

0131700 

0131700 02 002057 137020 132232 0132232 

0131702 02 002061 136040 131674 0131674 



01 ATEOT 





03 




SEGPRNT 


6 


001- 


04 


n THIS 


IS PART 


OF SEGMENT 6 




05 




SEGINC 


2 


001- 


06 




AN 


R8,2 


001- 


07 




CALL 


DISPLAY 


002- 


08 




BSA 


DISPLAY 




10 




LN 


R2,1 




12 


BKSPL0P1 






14 




LI 


R10,TBS 




15 




CALL 


SENDMIO 


•001- 


16 




BSA 


SENDMIO 




17 




CALL 


WAIT3S 


■noi- 


18 




9SA 


WAIT3S 




19 




BX 


R2,BKSPL0P1 






9:34:51 2/07/81 **** 
CTAPM W77D 



* ADD 2 TO THE SEGMENT IN R8 

H SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 



K SET UP R2 TO BE USED AS A BX COUNTER 

» LOAD R10 WITH A BACKSPACE (TRACK ADDR. 0). 

« WAIT 1 SECOND BEFORE CONTINUING 
H MUST DO 2 BACKSPACES 
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p06 


TDC DIAGNOSTIC PROGRAM. 










9:34:51 2/07/81 **** 


TEST 


6 MINI-RECORDER WRITE TEST. 










CTAPM W77D 


0131704 


02 


002063 003541 000527 MASACS 




01 




LI 


R6,BLKHAX # LOAD R6 WITH BLKMAX (THE BLOCK NUMBER IS 
UNKNOWN) 


0131706 








04 




CALL 


READSUB # READ BLOCK Y FROM TRACK ADDR 


0131706 


02 


002065 037020 120045 0120045 


-001- 


05 




BSA 


READSUB 


0131710 


02 


002067 154011 0131721 




06 




BC 


READOK # BRANCH IF THERE IS NO ERROR FLAGGED 


0131711 


02 


002070 003421 000001 




07 




LI 


R1 ,FATAL # SET UP TO FLAG THE ERROR FOR LATER USE 


0131713 


02 


002072 044430 




08 




ST 


R1,TABLT0P(RA1) # STORE THE FLAG IN THE TABLE 


0131714 








09 




SEGINC 


M 








-001- 


10 


n ADD 


1 TO R8, 


TO SET-UP THE ENTRY TO THE NEXT SEGMENT 


0131714 


02 


002073 004601 


-001- 


11 




AN 


R8,1 it ADD 1 TO THE SEGMENT IN R8 


0131715 






-001- 


12 




CALL 


DISPLAY # SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 


0131715 


02 


002074 037020 117767 0117767 


-002- 


13 




BSA 


DISPLAY 


0131717 


02 


002076 137000 117003 0117003 




15 




BL 


NOSPEED U NOW TREAT IT AS ONLY HAVING 1 BLOCK FROM 
BLKMAX TO EOT 


0131721 








20 


READOK 


"" 










22 


n THIS 


SEGMENT 


COMPUTES WHICH BLOCK THE TAPE HAS STOPPED AT 


0131721 


02 


002100 130540 045266 LAYOUT 




24 




LL 


R6,I OBUF # SET UP R6 WITH THE TR/BLK ID 


0131723 








25 




EOW 


n 13668 








-001- 


26 




NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 002101 ********** 


' 








30 


n now 


MASK OFF 


THE BLOCK NUMBER FROM THE CURRENT TRACK/BLOCK 










31 


n ID IN R6 FROM THE TAPE AND STORE IT INTO THE TABLE. THIS WILL 










32 


n PROTECT AGAINST ANY PREVIOUS WRITE TRACK SELECTION FAULTS IN THE 










33 


n HARDWARE, AND AT THE SAME TIME ALLOW THE TEST TO RUN PROPERLY. 










35 


TAPEOGN OW 


0(2102) H 12339 








-001- 


36 




NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 002102 ********** 










39 


n THE 


SECOND TO THE LAST BLOCK IS GOOD ON TRK 1 MASK THE BLK AND 










40 


M AND 


STORE IT 


IN THE TABLE 


0131723 


02 


002102 003542 003777 




41 




NI 


R6,M(BLKADDR> 


0131725 


02 


002104 044146 




42 




ST 


R6,N(BLKADDR)(RA0) 








* 


43 


# NOW 


COMPARE 


IT TO BLKMAX 


0131726 


02 


002105 003421 000527 MASACS 




44 




LI 


R1 ,BLKMA>' 


0131730 


02 


002107 037000 116774 0116774 




45 




BL 


TFAPCH2 # BRANCH TO LABLE TAPEPACH 


0131732 








46 




TAKEOUT 


6 


0131732 


02 


002111 006000 


-001- 


47 




LR 


0,0 


0131733 


02 


002112 006000 


-001- 


48 




LR 


0,0 


0131734 


02 


002113 006000 


-001- 


49 




LR 


0,0 


COMMON 


rAPE MAINTENANCE 
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TDC DIAGNOSTIC PROGRAM. 

TEST 6 MINI-RECORDER WRITE TEST. 

0131735 02 002114 006000 — 

0131736 02 002115 006000 

0131737 02 002116 006000 

0131740 



001- 01 


LR 


0,0 


001- 02 


UR 


0,0 


001- 03 


LR 


0,0 


04 


EOW 




001- 05 


NOTE 


*** 



9:34:51 2/07/81 **** 
CTAPM W77D 



* 12339 
*************** THE LAST ADDRESS OVERWRITTEN IS 002116 ********** 
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TDC DIAGNOSTIC PROGRAM. 


9:34:51 2/07/81 **** 






SUPPORTING SUBROUTINES 


CTAPM W77D 






0131740 


01 TDCORD 

02 # THIS ORDER AND RESPONSE TABLE IS USED TO VERIFY THE TAPE UNIT 

03 It CONTROLLER CIRCUITRY. A ORDER IS FOLLOWED BY ITS REPLY. 






0131740 


04 TRB1 






0131740 02 002117 003415 


05 DATA 0(3415) * TRB1 






0131741 02 002120 00351S 


06 DATA 0(3515) 






0131742 


07 TRB2 






0131742 02 002121 013415 


08 DATA 0(13415) It TRB2 






0131743 02 002122 053515 


09 DATA 0(53515) 






0131744 


10 TRB3 






0131744 02 002123 023415 


11 DATA 0(23415) * TRB3 






0131745 02 002124 123515 


12 DATA 0(123515) 






0131746 


13 TRB4 






0131746 02 002125 033415 


14 DATA 0(33415) * TRB4 






0131747 02 002126 173515 


15 DATA 0(173515) 






0131750 


16 TWIBG2 






0131750 02 002127 011415 


17 DATA 0(11415) U TWIBG2 






0131751 02 002130 051515 


18 DATA 0(51515) 






0131752 


19 TBS1 






0131752 02 002131 006415 


20 DATA 0(6415) II TBS1 






0131753 02 002132 006515 


21 DATA 0(6515) 






0131754 


22 TFF1 






0131754 02 002133 002415 


23 DATA . 0(2415) U TFF1 






0131755 02 002134 002515 


24 DATA 0(2515) 






0131756 


25 TFR1 






0131756 02 002135 004415 


26 DATA 0(4415) It TFR1 






0131757 02 002136 004515 


27 DATA 0(4515) 






0131760 


28 TRT1 






0131760 02 002137 007415 


29 DATA 0(7415) * TRT1 






0131761 02 002140 007515 


30 DATA 0(7515) 






0131762 


31 TWT2 






0131762 02 002141 015415 


32 DATA 0(15415) * TWT2 






0131763 02 002142 055515 


33 DATA 0(55515) 






0131764 


34 TCCRC 






0131764 02 002143 006015 


35 DATA 0(6015) » TCCRC 






0131765 02 002144 050115 


36 DATA 0(50115) 






0131766 


37 TWSTPT 






0131766 02 002145 003015 


38 DATA 0(3015) It TWSTP 






0131767 02 002146 050115 


39 DATA 0(50115) 






0131770 


40 TCWS 






0131770 02 002147 005015 


41 DATA 0(5015) It TCWS 






0131771 02 002150 050115 


42 DATA 0(50115) 






0131772 


43 TSTOPT 








44 DATA 0(15) II TSTOP 








45 DATA 0(50115) 






0131774 


46 TCMTC 






0131774 02 002153 007015 


47 DATA 0(7015) II TCMTC 






0131775 02 002154 050215 


48 DATA 0(50215) 






0131776 


49 TMAINT 






COMMON TAPE MAINTENANCE 
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TOC DIAGNOSTIC PROGRAM. 
SUPPORTING SUBROUTINES 

0131776 02 002155 004015 -■ 

0131777 02 002156 050015 -■ 






606 



9:34:51 2/07/81 **** 
CTAPM W77D 



01 
02 



DATA 
DATA 



0(4015) 
0(50015) 



H TMAINT 
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TDC DIAGNOSTIC PROGRAM. 
SUPPORTING SUBROUTINES 



A07 



01 TAPEOGN OW 
-001- 02 NOTE 



9:34:51 2/07/81 **** 

CTAPM W77D 

0(2157) U 11799 

************* THE FIRST ADDRESS OVERWRITTEN IS 002157 ********** 



0132000 



05 ERRMSGPO 

06 # THIS IS THE COMMON ERROR BRANCH FOR ALL TESTS. ALL DECISIONS 

07 ft CONCERNING THE MODE OF EXECUTION AND METHOD OF PRINTOUT IS DONE 

08 ft HERE. REGISTERS R7 AND R8 MUST CONTAIN THE TEST AND SEGMENT NUMBER. 

09 ft RAO SHOULD POINT TO THE TAPE DIAGNOSTIC CONTROL BLOCK, 



0132000 02 002157 110604 

0132001 02 002160 003562 000017 
0132003 



13 RRN R8,4 

14 NI R7,0(17) 

15 EOW ff 11799 

-001- 16 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002161 ********** 



0132003 02 002162 003441 062104 
0132005 02 002164 003461 021146 

0132007 02 002166 061065 

0132010 02 002167 040140 

0132011 02 002170 051264 

0132012 02 002171 054003 0132015 

0132013 

0132013 02 002172 037020 126763 CTAPH 
0132015 

0132015 02 002174 103421 010060 

0132017 

0132017 02 002176 135420 050537 LAYOUT 

0132021 02 002200 045441 



19 
-001- 20 

-001- 22 



TTYFMT 
LI 

LI 



0132022 02 002201 
002203 



0132024 02 
0132026 
0132026 02 
0132030 02 
0132032 
0132032 02 
0132034 
0132034 02 
0132036 02 
0132040 02 



002205 
002207 



003501 000014 TTYTBL 

003521 000242 TTYTBL 

037020 111005 CSYSUB 
103641 040007 



002211 037020 111050 CSYSUB 

002213 137020 126162 CTAPH 

002215 131400 043317 CTSD 

002217 062727 





24 


SBS 




25 


L 




26 


TBS 




27 


BC 




28 


ff REMOVE TDC 




29 


CALL 


001- 


30 


BSA 




31 


PUTAWAY1 




32 


TTYCTL 


001- 


33 


LI 




34 


PUTAWAY 




35 


STAL 




36 


STA 




37 


SPELL 


001- 


38 


LI 




39 


SPELL 


001- 


40 


LI 




41 


CALL 


001- 


42 


BSA 




43 


LI 




44 


CALL 


•001- 


45 


BSA 




46 


CALL 


•001- 


47 


BSA 




48 


LAL 




49 


ZBS 



FMT»(WRD,WRD,DEC,DEC,DEC,L X,L_X,L_X) 

R2,0lTTY0 L X*E((10-7)*4)lTTY0 DEC*E((9-7)*4) ITTYO DEC*E((ft-7>*4) 

ITTYO DEC*E<(7-7)*4) 
R3,0lTTYO *E((10-7)*4)lTTY0 *E((9-7)*4) ITTYO L X*E((8-7>*4) ITTYO. 

L X*E((7-7>*4> 
N(FAIL) (RAO), S (FAIL) 0FLAG TO MONITOR THAT TEST FAILED. 
R6,N(TPN0)(RA0) 

N(STATSV)(RAO),S(TSTATE) *WAS TDC OUT OF SERVICE 
PUTAWAY1 (KYES 

AND LIGHT LAMP AND GIVE REMOVE PRINTOUT. 
DGNRMV 
DGNRMV 

PRI0R=3,S0URCE=MFA,ZSPRS=N0 
R1,0*E(13H1*E(12)+O*E(9)+O*E(8)+O*E(6)+3*E(4)+0*E(3)*O 

R1,TTY MFA,RA1 

R2,1(RA1) 

R4,(D,G,N) 

R4,DXGN 

R5,(T,A,P,E) 

R5.TXAPE 

ST2 11 

ST2 11 

R107INIT 

SENDMIO 

SENDMIO 

INITTAPE 

INITTAPE 

R0,TCBADR,RA1 

N(REPK)(RA1),S(REPK) 



K STORE REMAINING REGISTERS. 



#STOP TAPE ON ERROR 
If CLEAR KB AFTER TEST. 
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TDC DIAGNOSTIC rROGRAM. 

SUPPORTING SUBROUTINES 

0132041 ' 

0132041 02 002220 056462 - 



01 
-001- 02 



B07 



RETURN 2 
BTSAN 2 



9:34:51 2/07/81 **** 
CTAPM W77D 






0132042 



06 SENDSFT 

07 U THIS ROUTINE IS USED TO SEND 16 CONSTANTS TO THE BT 
06 n TO CHECK OUT ITS BUS GATING AND PARITY GENERATION. 

09 U R10 CONTAINS THE STARTING CONSTANT AND IT IS SHIFTED 

10 It LEFT ONE WITH EACH SUCCESSFUL TRANSMISSION. AN ERROR 

11 # TERMINATES THE EXECUTION OF THE ROUTINE. RETURN INDICATES 

12 n SUCCESS AND RETURN 1 INDICATES ERROR. 



0132042 

0132042 02 002221 103057 

0132043 

0132043 

0132043 02 002222 173034 

0132044 02 002223 156000 

0132045 

0132045 02 002224 156461 

0132046 02 C02225 153002 0132050 

0132047 

0132047 

0132047 02 002226 156461 

0132050 

0132050 02 002227 120253 

0132051 02 002230 055776 0132047 

0132052 02 002231 010657 

0132053 02 002232 036040 132043 0132043 
0132055 

0132055 02 002234 056460 



14 

15 

16 RTORD 

17 
-001- 18 

19 

20 
-001- 21 

22 

23 RTN1 

24 
-001- 25 

27 BXT 
28 
29 
30 
31 
32 
-001- 33 



BEGIN 
LN 

CALL 

BSAI 

BPAX 

RETURN 

BTSAN 

B 

RETURN 
BTSAN 



CR 

8NC 

RLN 

BX 

RETURN 

BTSAN 



() 

R2,15 

SENDIO 

SXENDIO 

RO 

1 

1 

BXT 

1 
1 



R10,R11 

RTN1 

R10,1 

R2, RTORD 







n SUBROUTINE SENDIO IS IN PROGRAM CSYSUB. 

It BT ALWAYS SENDS THE 5 START CODE. 

it KEEP SENDING ORDERS 

U NO-RESPONSE IS AN ERROR. 

ft IS RESPONSE CORRECT. 
* NO 

it KEEP SENDING ORDERS. 



0132056 



0132056 
0132056 
0132056 02 002235 137020 111050 CSYSUB -001- 

0132060 02 002237 156000 

0132061 

0132061 02 002240 156461 -001- 

0132062 

0132062 02 002241 156460 -001- 

0132063 

0132063 02 002242 156461 -001- 



37 

36 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



SMTM 

» THIS ROUTINE WILL SEND A MAINTENANCE ORDER TO THE TDC 

H AND CHECK FOR A MAINTENANCE START CODE REPLY. 






BEGIN 


<) 


CALL 


SENDMIO 


BSA 


SENDMIO 


BPAX 


RO 


RETURN 


1 


BTSAN 


1 


RETURN 





BTSAN 





RETURN 


1 


BTSAN 


1 
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C07 


TDC DIAGNOSTIC PROGRAM. 




9:34:51 2/07/81 **** 


SUPPORTING SUBROUTINES 




CTAPM W77D 


0132064 






04 SENDMIOM 








05 rrms 


ROUTINE WILL SEND A MAINTENANCE ORDER AND CHECK THE RESULTS. 








06 U AN ATP RESPONCE MILL RESULT IN A RETURN TO THE CALLING PROGRAM. 








07 FAILURE OF THE ORDER WILL RESULT IN A RETURN TO AN ERROR BRANCH. 


0132064 






08 










09 It ENTRY R10=0RDER 








10 * 


R9=ADDRESS OF DEVICE 








11 n 


R8=SEG. NUMBER 








12 n 


R7=TEST NUMBER 


0132064 






14 


BEGIN () 


0132064 






15 


CALL SENDMIO 


0132064 


02 


002243 137020 111050 CSYSUB 


-001- 16 


BSA SENDMIO 


0132066 


02 


002245 155002 0132070 


17 


BNC RESETAD 


0132067 






18 


RETURN 


0132067 


02 


002246 056400 


-001- 19 


BTSA 


0132070 






21 RESETAD 


0132070 02 


002247 103340 


22 


ZR RA1 


0132071 


02 


002250 031400 132000 0132000 


23 


LAL R0,ERRMSGP0,RA1 


0132073 


02 


002252 072740 


24 


HN RA1,0 IVRETURN TO ERROR BRANCH. 


0132074 


02 


002253 072761 


25 


HN RA1+1,1 


0132075 






26 


RETURN 


0132075 


02 


002254 056400 


-001- 27 


BTSA 


0132076 






31 L0D1HLF 








32 n THIS 


ROUTINE WILL LOAD UP THE CURRENT INACTIVE BUFFER WITH THE 








33 U PATTERN SPECIFIED IN R2. ONLY ONE HALF OF THE BUFFER IS LOADED. 








34 n RETURN INDICATES A SUCCESSFUL LOAD OPERATION. 


0132076 






35 


BEGIN 


0132076 


02 


002255 171420 


-002- 36 


HA 


0132077 


02 


002256 003641 042013 


37 


LI R10,BSLD0N #SET THE LOAD STATE UP. 


0132101 






38 


CALL SENDMIO 


0132101 


02 


002260 037020 111050 CSYSUB 


-001- 39 


BSA SENDMIO 


0132103 


02 


002262 106242 


40 


LR R10,R2 


0132104 


02 


002263 003441 000037 


41 


LI R2,31 *BX CONSTANT FOR 1/2 OF BUFFER. 


0132106 






42 OROUT 




0132106 


02 


002265 103070 


43 


LN R3,8 


0132107 


02 


002266 023400 


44 


SIO 


0132110 






45 STAR 




0132110 


02 


002267 136060 132110 0132110 


46 


BX R3,STAR 


0132112 


02 


002271 023500 


47 


TIO 


0132113 


02 


002272 055004 0132117 


48 


BNC FAILURE 


0132114 


02 


002273 036040 132106 0132106 


49 


BX R2,0R0UT 
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D07 


TDC DIAGNOSTIC 


PROGRAM. 








9:34:51 2/07/81 ***** 


SUPPORTING SUBROUTINES 








CTAPM W77D 


0132116 










01 


RETURN 





0132116 


02 


002275 


056440 


-001- 


02 


BTSAGN 





0132117 










03 


FAILURE 




0132117 










04 


RETURN 


1 


0132117 


02 


002276 


156441 


-001- 


05 


BTSAGN 


1 


0132120 










09 


UNCHECK1 




0132120 


02 


002277 


171420 




10 


HA 




0132121 


02 


002300 


053014 0132135 




11 


B 


STUNLD 


0132122 










12 
13 


UNCHECK 

U THIS ROUTINE 


IS USED TO UNLOAD AND CHECK DATA STORED IN THE 












14 


U INACTIVE BUFFER. THE CONTENTS OF R2 INDICATES WHAT IS EXPECTED 












15 


U IN THE FIRST 


32 WORDS OF THE BUFFER. THE LAST 32 WORDS MUST BE 












16 


tt ZERO. RETURN 


INDICATES AN ATP CONDITION. 


0132122 










18 


BEGIN 




0132122 


02 


002301 


171420 - 


-002- 


19 


HA 




0132123 


02 


002302 


003641 044013 




20 


LI 


R10,BSUNLD0N #SET UP UNLOAD STATES IN TDC. 


0132125 










21 


CALL 


SENDMIO 


0132125 


02 


002304 


037020 111050 CSYSUB 


-001- 


22 


8SA 


SENDMIO 


0132127 


02 


002306 


155030 0132157 




23 


BNC 


ERXIT 


0132130 


02 


002307 


003641 120013 




24 


LI 


R10,BCLR0CN 


0132132 










25 


CALL 


SENDMIO 


0132132 


02 


002311 


037020 111050 CSYSUB 


-001- 


26 


BSA 


SENDMIO 


0132134 


02 


002313 


155023 0132157 




27 


BNC 


ERXIT 


0132135 










28 


STUNLO 




0132135 


02 


002314 


103641 100007 




29 


LI 


R10,SD 


0132137 










30 


NEXHLF 




0132137 


02 


002316 


103501 000037 




31 


LI 


R4,31 


0132141 










32 


NORD 




0132141 


02 


002320 


103150 




33 


LN 


R6,8 


0132142 


02 


002321 


023440 




34 


SMIO 


IVUNLOAD A 16 BIT WORD. 


0132143 










35 


STR 




0132143 


02 


002322 


136140 132143 0132143 




36 


BX 


R6,STR 


0132145 


02 


002324 


023500 




37 


TIO 




0132146 


02 


002325 


055011 0132157 




38 


BNC 


ERXIT 


0132147 


02 


002326 


020262 




39 
40 


CR 
MAS DATA AND 


R11,R2 
R3 SAME? 


0132150 


02 


002327 


055007 0132157 




41 


BNC 


ERXIT #N0 


0132151 


02 


002330 


036100 132141 0132141 




42 


BX 


R4,N0RD 


0132153 


02 


002332 


014042 




43 


TZ 


R2 












44 


» IT BOTH HALVES OF BUFFER ARE DONE R3g0 


0132154 


02 


002333 


003040 




45 


ZR 


R2 


0132155 


02 


002334 


055762 0132137 




46 


BNC 


NEXHLF 


0132156 










47 


RETURN 





0132156 


02 


002335 


056440 


-001- 


46 


BTSAGN 





0132157 










49 


ERXIT 




COMMON 
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TDC DIAGNOSTIC PROGRAM. 

SUPPORTING SUBROUTINES 

0132157 02 002336 172673 - 

0132160 

0132160 02 002337 056*41 - 



9:34:51 2/07/81 **** 
CTAPM W770 



01 

02 

-001- 03 



HN R11,11 
RETURN 1 
BTSAGN 1 



0132161 



07 LEDPROT 

08 n THIS SEGMENT IS RESPONSIBLE FOR PROTECTING AGAINST AN LED 

09 n BURN OUT WHICH COULD WIND THE TAPE OFF THE REEL. A RETURN 

10 # CODE OF 1 INDICATES A POSSIBLE FAILURE. RETURN WILL INDICATE 

11 # THAT THE CALLING TEST MAY CONTINUE. 



0132161 
0132161 
0132162 
0132164 
0132164 
0132166 
0132166 
0132166 
0132167 
0132170 
0132171 
0132171 
0132171 
0132172 
0132173 
0132173 
0132173 
0132174 
0132175 
0132177 
0132177 
0132201 
0132202 
0132203 
0132203 
0132204 
0132204 
0132206 
0132206 
0132210 
0132212 
0132212 
0132214 
0132214 
0132214 



02 002340 171420 

02 002341 003641 006415 

02 002343 037020 111050 CSYSUB 



02 002345 173022 

02 002346 000171 

02 002347 106040 

02 002350 173025 

02 002351 106002 

02 002352 073037 

02 002353 154775 0132171 

02 002354 003641 002015 

02 002356 037020 111050 CSYSUB 

02 002360 124272 

02 002361 054002 0132204 

02 002362 056440 

02 002363 103641 040007 



02 002365 
02 002367 



037020 111050 CSYSUB 
103641 003415 



02 002371 037020 111050 CSYSUB 



02 002373 173022 





15 


BEGIN 


002- 


16 


HA 




17 


LI 




18 


CALL 


001- 


19 


BSA 




20 


BGNTIM 


001- 


21 


CALL 


002- 


22 


BSAI 


001- 


23 


DATA 




24 


LR 




25 CALW 




26 


CALL 


•001- 


27 


BSAI 




28 


LR 




29 


CHKTIM 


■001- 


30 


CALL 


•002- 


31 


BSAI 




32 


BC 




33 


LI 




34 


CALL 


■001- 


35 


BSA 




36 


TBN 




37 


BC 




38 


RETURN 


■001- 


39 


BTSAGN 




40 ERRSTOP 




41 


LI 




42 


CALL 


■001- 


43 


BSA 




44 


LI 




45 


CALL 


•001- 


46 


BSA 




47 


BGNTIM 


-001- 


48 


CALL 


■002- 


49 


BSAI 



R10,TBS 

SENDMIO 

SENDMIO 

SEC=3 

TIMOUT 

TXIMOUT 

121 

R2,R0 

WAIT 

WXAIT 

R0,R2 

TIMCHK 

TXIMCHK 

CALW 

R10,TSTAT 

SENDMIO 

SENDMIO 

R11,S(TIM) 

ERRSTOP 





R10,INIT 

SENDMIO 

SENDMIO 

R10,TRP 

SENDMIO 

SENDMIO 

SEC=5 

TIMOUT 

TXIMOUT 



^PREPARE TO ISSUE BACKSPACE 



MAXIMUM TIME TO BOT HOLES 

# SUBROUTINE TIMOUT IS IN PROGRAM CSYSUB 
n TIMOUT+1 

(CSAVE TIME CONSTANT. 

» TAKE A REAL TIME BREAK. 

n SUBROUTINE WAIT IS IN PROGRAM CBLM 

* HAS TIMEOUT OCCURRED? 
U HAS TIMOUT OCCURRED? 

f SUBROUTINE TIMCHK IS IN PROGRAM CSYSUB 



*IS TAPE STILL MOVING 
# YES POSSIBLE ERROR. 



H ISSUE READ 1 BLK TO PROTECT FROM RUN OFF. 



» SUBROUTINE TIMOUT IS IN PROGRAM CSYSUB 



COMMON TAPE MAINTENANCE 

9:34:51 2/07/81 TRADE SECRET 
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-£2L 



TDC DZA6N0STIC PROGRAM. 
SUPPORTING SUBROUTINES 

0132215 02 002374 000311 

0132216 02 002375 106040 

0132217 

0132217 

0132217 02 002376 173025 

0132220 02 002377 106002 

0132221 

0132221 

0132221 02 002400 073037 

0132222 02 002401 154775 0132217 

0132223 

0132223 02 002402 056441 



0132224 
0132224 
0132224 

0132224 02 002403 173022 

0132225 02 002404 000005 

0132226 02 002405 153006 0132234 

0132227 

0132227 
0132227 

0132227 02 002406 173022 

0132230 02 002407 000051 

0132231 02 002410 153003 0132234 

0132232 

0132232 
0132232 

0132232 02 002411 173022 

0132233 02 002412 000171 

C132274 



-001- 


01 




DATA 


201 




02 




LR 


R2,R0 




03 


CLWT 








04 




CALL 


WAIT 


-001- 


05 




BSAI 


WXAIT 




06 




LR 


R0,R2 




07 




CHKTIM 


- 


-001- 


OS 




CALL 


TIMCHK 


-002- 


09 




BSAI 


TXIMCHK 




10 




BC 


CLHT 




11 




RETURN 


1 


-001- 


12 
16 


WAIT1 


BTSAGN 


1 




17 




BGNTIM 


MSEC=100 


-001- 


18 




CALL 


TIMOUT 


-002- 


19 




BSAI 


TXIMOUT 


-001- 


20 




DATA 


5 




21 




B 


MYWAIT 




22 


WAIT1S 








23 




BGNTIM 


SEC=1 


-001- 


24 




CALL 


TIMOUT 


-002- 


25 




BSAI 


TXIMOUT 


-001- 


26 




DATA 


41 




27 




B 


MYWAIT 




26 


WAIT3S 








29 




BGNTIM 


SEC=3 


-001- 


30 




CALL 


TIMOUT 


-002- 


31 




BSAI 


TXIMOUT 


-001- 


32 
33 


MYWAIT 


DATA 


121 




34 


* THIS 


ROUTINE 


WILL TAKE REAL TIME 




35 


n OF TIME ELAPSES. RO CONTAINS THE 




36 


#THE ELAPSED TIME. 



9:34:51 2/07/81 **** 
CTAPM W77D 



# TIMOUT+1 



# SUBROUTINE WAIT IS IN PROGRAM CBLM 



# HAS TIMOUT OCCURRED? 

It SUBROUTINE TIMCHK IS IN PROGRAM CSYSUB 



n SPECIAL ENTRY FOR 100 MSEC TIME BREAK. 

K SUBROUTINE TIMOUT IS IN PROGRAM CSYSUB 
» TIMOUT+1 



It SPECIAL ENTRY FOR 1 SEC WAIT 

it SUBROUTINE TIMOUT IS IN PROGRAM CSYSUB 
H TIMOUT+1 



* SPECIAL ENTRY FOR 3 SEC WAIT 

n SUBROUTINE TIMOUT IS IN PROGRAM CSYSUB 
n TIMOUT+1 

BREAKS UNTIL A SPECIFIC AMOUNT 
TIME CONSTANT USED TO ESTABLISH 



0132234 

0132234 02 002413 171420 

0132235 02 002414 006040 
0132236 

0132236 

0132236 02 002415 173025 

0132237 02 002416 106002 
0132240 

0132240 

0132240 02 002417 073037 



40 BEGIN 

-002- 41 HA 

42 LR R2,R0 

43 MOREWAIT 

44 CALL WAIT 
-001- 45 BSAI WXAIT 

46 LR R0,R2 

47 CHKTIM 

-001- 48 CALL TIMCHK 

-002- 49 BSAI TXIMCHK 



U SUBROUTINE WAIT IS IN PROGRAM CBLM 



U HAS TIMOUT OCCURRED? 

n SUBROUTINE TIMCHK IS IN PROGRAM CSYSUB 
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$07 


TOC DIAGNOSTIC PROGRAM. 














9:34:51 2/07/81 **** 


SUPPORTING SUBROUTINES 














CTAPM W77D 


0132242 

0132242 02 002421 156420 


0132236 


-001- 

-001- 
-001- 


01 
02 
03 
04 
05 
06 


BC 

RETURN 
BTSAG 
TFAPCH2 BGNP 
NOTE 
NOTE 


MOREWAIT 

0(0) H 13668 

TFAPCH2 'CSECT* 

***************** PATCH AREA BEGINS AT 000000 **************** 


0116774 

0116774 10 000000 105141 

0116775 10 000001 055135 


0117132 




09 
10 

12 


TAPEPACH 
SR 

BNC 


R6,R1 # SUBTRACT BLKMAX FROM THE CURRENT BLOCK'S 

NUMBER 
ERR0R1 U BRANCH IF THE CF=0 (R1>R6) 


0116776 

0116776 

0116776 10 000002 004601 

0116777 

0116777 10 000003 037020 117767 


0117767 


-001- 

-001- 
-001- 
-002- 


14 
15 
16 
17 
18 
19 


n 


THIS 


SEGPRNT 

IS PART 

SEGINC 

AN 

CALL 

BSA 


7 

OF SEGMENT 7 

R8,1 n ADD 1 TO THE SEGMENT IN R8 

DISPLAY * SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

DISPLAY 


0117001 10 000005 114146 

0117002 10 000006 055021 


0117023 




21 
22 






TZ 
BNC 


R6 % IS Y - BLKMAX « 

ALLTEST n IF THESE OTHER CHECKS FAIL THEN RUN ALL 
TESTS 


0117003 






27 


NOSPEED 






• 




29 

30 
31 
32 
33 


* 

U 
tt 


THIS BRANCH IS TAKEN IF THE DIAGNOSTIC CALCULATED THAT THERE IS 
ONLY ONE BLOCK BETWEEN BLKMAX AND THE END OF THE TAPE OR THE 
SECOND TO THE LAST BLOCK ON THE TAPE HAS NOT READABLE. THE 
DIAGNOSTIC WILL TRY TO RUN AS MANY TEST AS POSSIBLE USING 
THE LAST BLOCK ON THE TAPE. 








35 
36 
37 

38 
39 


i 

H 
H 
K 
» 


FIRST THIS LOOP SETS THE CONDITIONAL ATP FLAG ,THEN READS 
THE LAST BLOCK ON THE TAPE. NOTE THAT THERE IS NO ROOM 
ON THE TAPE TO RUN THE SPEED TEST (WHICH TAKE TWO BLOCKS). 
RUN TESTS OF THE WRITE CIRCUITS THEN TELL THE CRAFTSPERSON THE 
TAPE WAS TOO SHORT. 


0117003 10 000007 161105 






43 






SBS 


N(CATP)(RAO),S(CATP) # SET THE CONDITIONAL ATP BIT 


0117004 

0117004 10 000010 037020 120045 

0117006 10 000012 155124 


0120045 
0117132 


-001- 


45 
46 
47 






CALL 

BSA 

BNC 


READSUB n READ BLOCK Y+1 OFF TRACK ADDR. 

READSUB 

ERR0R1 # BRANCH WHEN THE READ OF BLOCK Y+1 IS BAD 


COMMON TAPE MAINTENANCE 
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TDC DIAGNOSTIC PROGRAM. 

SUPPORTING SUBROUTINES 

0117007 

0117007 

0117007 10 000013 004601 

0117010 

0117010 10 00001* 037020 117767 0117767 



0117012 10 000016 1305*0 0*5266 LAYOUT 



A08 



01 SEGPRNT 8 
-001- 02 it THIS IS PART OF SEGMENT 8 

03 SEGINC 
-001- 0* AN R8,1 
-001- 05 CALL DISPLAY 
-002- 06 BSA DISPLAY 



9:3* :51 2/07/81 **** 
CTAPM W77D 



U ADD 1 TO THE SEGMENT IN R8 

* SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 



-001- 



08 n NOW SET UP THE STATUS OF THE LAST BLOCK 

10 LL R6,I_0BUF * SET UP R6 WITH THE TR/BLK ID 

12 « NOW MASK OFF THE BLOCK NUMBER FROM THE CURRENT ™ACK/BLOCK 
« * ID IN R6 FROM THE TAPE AND STORE IT INTO THE TABLE. THIS WILL 
1* * PROTECT AGAINST ANY PREVIOUS WRITE TRACK SELECTION FAULTS IN THE 
15 * HARDWARE, AND AT THE SAME TIME ALLOW THE TEST TO RUN PROPERLY. 

17 TFAPCH2 N 0W £ 2H°i******** THE FlSs^ADDRESS OVERWRITTEN IS 000020 ********** 



011701* 10 000020 037000 115255 0115255 

0117016 

0117016 10 000022 103*21 000527 MASACS 

0117020 



0117020 10 00002* 00**21 

0117021 10 000025 0051*1 

0117022 10 000026 055110 0117132 



-001 • 



21 U THE LAST BLOCK IS GOOD ON TRK 1 MASK THE BLK AND TRK AND STORE 

22 » IT IN THE TABLE 

23 BL PATCH2 
2* RETURN2 

25 LI R1,BLKMAX ^^ 

27 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000023 ********** 



30 

31 

33 



COMMON TAPE MAINTENANCE 

9:34:51 2/07/81 TRADE SECRET 



AN 
SR 

BNC 



R1,1 
R6,R1 

ERC0R1 



» ADD ONE TO BLKMAX (R1 ) „.«.„.« 

* SUBTRACT BLKMAX FROM THE CURRENT BLOCK'S 
NUMBER 

* BRANCH IF THE CF«0 (R1>R6) 
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TDC DIAGNOSTIC PROGRAM. 


9:34:51 2/07/81 **** 






SUPPORTING SUBROUTINES 


CTAPM M77D 




. 


0117023 


01 ALLTEST 






0117023 


03 SEGINT 10 
-001- 04 It ******************************* ********************************** 








-001- 05 « INITIALIZE THE SEGMENT NUMBER TO 10 

-001- 06 It **************************************************************** 




0117023 10 000027 103601 000012 

0117025 

0117025 10 000031 037020 117767 0117767 


-001- 08 LI R8,10 H LOAD SEGMENT NUMBER 10 INTO R8 

-001- 09 CALL DISPLAY » SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

-002- 10 BSA DISPLAY 




• 
1 


• 


12 n THIS SECTION WILL SET UP THE STATUS TABLE. (THE TAPE IS AT THE 

13 * END OF THE BLOCK THAT IS TO BE READ - EITHER Y OR Y+1). SO 

14 H BACKSPACE ONE BLOCK, INCREMENT THE TRACK, READ THE NEXT BLOCK, 

15 * CHECK FOR NO SPEED TEST, (IF NO SPEED TEST IS GOING TO BE 

16 n RUN, GO BACK TO THE BACKSPACE), READ THE NEXT BLOCK, 

17 K SAVE THE TR/BLK ID, THE CRC, AND THE STATUS FLAGS IN THE TABLE, 

18 H BACKSPACE, AND BRANCH TO THE FIRST BACKSPACE. THE LOOP IS ENDED 

19 * WHEN THE LAST BLOCK IS READ AND THE STATUS IS STORED AWAY. 




-- 


0117027 10 000033 103070 

0117030 10 000034 0305*0 046765 MAS ACS 

0117032 10 000036 046123 

0117033 10 000037 040146 


23 LN R3,TABLT0P U SET UP R3 TO INDEX THE FIRST TABLE ENTRY 

24 LL R5,I OBUF+CRC # LOAD R5 WITH THE CRC FROM THE I BUFFER 

25 STX R5,R?(RA0) ft STORE THE CRC IN THE FIRST CRC TABLE ENTRY 

26 L R6,N(BLKADDR)(RA0> It LOAD R6 WITH THE BLOCK NUMBER IN THE TABLE 






0117034 


28 SEGMULT 10,15,20 
-001- 29 It THIS SECTION OF CODE MAKES-UP SEGMENTS 10 15 AND 20 






0117034 


31 RDSTAT 






0117035 10 000041 004461 

0117036 10 000042 003540 004000 


33 LN R2,2 It SET UP A BX CONSTANT TO CHECK FOR A HARD 

ERROR READ 

35 AN R3,1 * UPDATE THE INDEXING REGISTER 

36 AI R6,E(S(TRK>> It ADD 1 TO THE TRACK ADDR. 

40 tt BACKSPACE TO SET UP THE BLOCK Y READ. 






0117040 


42 YBS1 




• ■ 


0117040 

0117040 10 000044 137020 117776 0117776 


44 CALL BACKSUB It THIS BACKSPACE WILL BE USED ALL OF THE TIME 
-001- 45 BSA BACKSUB 






COMMON TAPE MAINTENANCE 
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COS 



TOC DIAGNOSTIC PROGRAM. 
SUPPORTING SUBROUTINES 
0117042 10 0O0OA6 155070 - 

0117043 



0117043 

0117043 10 000047 004601 

0117044 



0117132 



01 



BNC 



ERR0R1 



I 



9:34:51 2/07/81 **** 

CTAPM W77D 

It GO TO ERROR MESSAGE RETURN BECAUSE BKSP MAS 
FATAL 



04 SEGMULT 11,16,21 
-001- 05 # THIS SECTION OF CODE MAKES-UP SEGMENTS 11 16 AND 21 



07 

-001- 08 
-001- 09 



SEGINC 
AN 
CALL 
BSA 



R8,1 

DISPLAY 

DISPLAY 



n ADD 1 TO THE SEGMENT IN R8 

ft SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 



0117044 10 000050 037020 117767 0117767 -002- 10 

12 » TRY TO READ THE BLOCK Y FROM THE TAPE 



0117046 1* «LL READSUB 

0117046 10 000052 137020 120045 0120045 -001- 15 BSA READSUB 
0117050 10 000054 154014 0117064 16 BC VSAVE 



H READ BLOCK i 

1t IF THE READ WAS GOOD CHECK THE TRACK/BLOCK 
10 



0117051 

0117051 10 000055 004217 

0117052 

0117052 10 000056 037020 117767 0117767 

0117054 10 000060 136040 117040 0117040 



0117056 

0117056 10 000062 004602 

0117057 

0117057 10 000063 037020 117767 0117767 

0117061 10 000065 103501 000001 

0117063 10 000067 053015 0117100 



21 H CHECK R2 FOR A HARO ERROR INDICATION. IF IT IS NOT - BACKSPACE 

22 II AND TRY AGAIN. IF IT IS LOAD R4 WITH A FATAL FLAG AND BRANCH 

23 # TO THE NEXT STEP WHICH WILL STORE R4 AND GO ON WITH THE TEST. 



25 

-001- 26 
-001- 27 
-001- 28 
-002- 29 

31 



SEGDEC 1,Y 
SUBTRACT 1 FROM R8,T0 SET-UP THE ENTRY TO THE NEXT SEGMENT 

SN R8,1 n SUBTRACT 1 FROM THE SEGMENT IN R8 

CALL DISPLAY * SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

BSA DISPLAY 



BX 



R2,YBS1 



M IF THE COUNT IS NOT EQUAL TO ZERO RETRY THE 
READ 



34 SEGINC 2,Y 

-001- 35 » ADD 2 TO R8, TO SET-UP THE ENTRY TO THE NEXT SEGMENT 

-001- 36 AN R8,2 * ADD 2 TO THE SEGMENT IN R8 

-001- 37 CALL DISPLAY » SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

-002- 38 BSA DISPLAY 



40 
41 



LI 

B 



R4, FATAL 
NEXXT 



n SETUP TO FLAG THE FATAL READ 

n CONTINUE WITH THE PART OF THE TEST 



0117064 



45 YSAVE 
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TDC DIAGNOSTIC PROGRAM. 
SUPPORTING SUBROUTINES 

0117064 10 000070 130420 045266 LAYOUT 



0117066 10 000072 017141 003777 

0117070 10 000074 055042 0117132 

0117071 

0117071 

0117071 10 000075 004601 

0117072 

0117072 10 000076 037020 117767 0117767 

0117074 10 000100 130520 046765 MASACS 

0117076 10 000102 046123 

0117077 10 000103 003100 



9:34:51 2/07/81 **** 
CTAPM 



W770 



01 it THE READ WAS GOOD. CHECK THE BLOCK NUMBER AND SAVE THE CRC. 

02 LL R1,I_0BUF # SET UP R1 WITH THE TR/BLK ID 

04 n COMPARE THE EXPECTED BLOCK NUMBER (IN R6) TO THE BLOCK WHICH WAS 

05 # READ FORM THE TAPE (IN R1). 



07 
08 



CRM 
BNC 



R6,R1,M(BLKADDR) 
ERR0R1 



If IF THE 2 BLOCK NUMBERS ARE NOT EQUAL IT IS 
AN ERROR 



11 SEGMULT 12,17,22 
-001- 12 » THIS SECTION OF CODE MAKES-UP SEGMENTS 12 17 AND 22 



14 


SEGINC 




-001- 15 


AN 


R8,1 


-001- 16 


CALL 


DISPLAY 


-002- 17 


BSA 


DISPLAY 



# ADD 1 TO THE SEGMENT IN R8 

« SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 



1? H STORE THE CRC IN THE CRC TABLE AFTER THE BLOCK NUMBER IS TESTED 

20 LL R5,I OBUF+CRC tf LOAD R5 WITH THE CRC FROM THE I BUFFER 

21 STX R5,R3"(RA0) # STORE THE CRC IN THE CRC TABLE 

22 ZR R4 K SETUP TO STORE THE STATUS OF THE BLOCK 



0117100 



0117100 10 000104 146503 

0117101 10 000105 004461 



26 NEXXT 

28 » STORE THE STATUS BITS. R4 CONTAINS THE STATUS, EITHER R4 ■ 

29 n IF THE READ WAS GOOD BEFORE R2 = 0, OR R4 ■ FATAL IF THE READ 

30 » WAS FATAL THREE TIMES (HARD ERROR). 



32 
33 



STX 
AN 



R4,R3(RA1) 
R3,1 



# STORE THE STATUS IN THE TABLE 
n ADD 1 TS THE INDEX (POINT TO THE NEXT TABLE 
ENTRIES) 



38 # THE NEXT STEP IS TO CHECK IF THE TEST IS GOING TO RUN THE SPEED TEST 

39 H THIS WAS CALCULATED BEFORE AND THE FLAG WAS SET. TEST THE FLAG AND 

40 n BRANCH IF IT IS SET, OTHERWISE READ THE NEXT BLOCK 

0117102 10 000106 051105 42 TBS N(CATP) (RAO),S(CATP) # IS THE BIT SET? 

0117103 10 000107 055005 0117110 43 BNC Y1READ It IF NOT CONTINUE WITH THE TEST 

0117104 45 SEGINC 3,Y 

-001- 46 K ADD 3 TO R8, TO SET-UP THE ENTRY TO THE NEXT SEGMENT 

0117104 10 000110 004603 -001- 47 AN R8,3 # ADD 3 TO THE SEGMENT IN Rfi 

0117105 -001- 48 CALL DISPLAY # SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 
0117105 10 000111 037020 117767 0117767 -002- 49 BSA DISPLAY 
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0117107 10 000113 153055 - 



011716* 



02 



EOS 



6 STATFINI 



9:34:51 2/07/81 **** 
CTAPH V77D 

* IT YES 60 TO THE START OF THE NEXT READ 
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0117110 ' 

0117110 10 0001H 103042 - 



0117111 

0117111 
0117111 



10 000H5 137020 1200*5 0120045 -001- 



0117113 10 000117 154025 



0117140 



01 Y1READ 

02 LN 


R2,2 


06 Y1READ1 




08 CALL 

09 BSA 

10 BC 


READSUB 
READSUB 
T1SAVE 



9:34:51 2/07/81 **** 
CTAPM W77D 

# SET \i? R2 WITH THE BX COUNTER AGAIN 



* READ BLOCK Y+1 

n THE READ WAS GOOD. CHECK THE BLOCK NUMBER 
AND SAVE THE CRC 



15 U CHECK R2 FOR A HARD ERROR INDICATION. IF IT IS NOT « BACKSPACE 

16 # AND TRY AGAIN. IF IT IS LOAD R4 WITH A FATAL FLAG AND BRANCH 

17 n TO THE NEXT STEP WHICH WILL STORE R4 AND GO NO WITH THE TEST. 

18 H IF R2 NOT EO.UAL TO 0, USE SPECIAL BACKSPACE AND RETRY THE READ _. . - 

0117114 10 000120 0: 040 117121 0117121 20 BX R2,ERRBKSP 

0117116 10 000122 003501 000001 22 LI R4, FATAL * SETUP TO FLAG THE FATAL READ 

0117120 10 000124 004601 23 AN R8,1 

0117121 24 ERRBKSP 

0117121 25 CALL DISPLAY 

0117121 10 000125 137020 117767 0117767 -001- 26 BSA DISPLAY 

0117123 10 000127 153032 0117155 28 B NEXTT # GO TO THE NEXT PART OF THE TEST TO STORE 

THE FLAG 

0117124 32 SEGMULT 13,18,23 

-001- 33 » THIS SECTION OF CODE MAKES-UP SEGMENTS 13 18 AND 23 

0117124 35 SEGINC 

017124 10 000130 004601 -001- 36 AN R8,1 « ADD 1 TO THE SEGMENT IN R8 

0117125 -001- 37 CALL DISPLAY » SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 
0117125 10 000131 037020 117767 0117767 -002- 38 BSA DISPLAY 

40 n BACKSPACE TO SET UP THE REREAD OF BLOCK Y+1 . 
On/127 41 CALL BACKSUB # THIS BACKSPACE WILL BE USED AFTER AN ERROR 

0117127 10 000133 137020 117776 0117776 -001- 42 BSA BACKSUB 

0117131 10 000135 154003 0117134 43 BC N0ERR0R1 # BRANCH IF NO ERROR FLAG WAS SET 

0117132 *5 ERR0R1 



COMMON TAPE MAINTENANCE 

9:34:51 2/07/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPM 



PR-1C958-50 
ISSUE 06 PAGE 



115 



TOC DIAGNOSTIC PROGRAM. 
SUPPORTING SUBROUTINES 
0117132 10 000136 137000 117670 0117670 

0117134 

011713* 

011713* 10 0001*0 10*217 

0117135 

0117135 10 0001*1 037020 117767 0117767 



0117137 10 0001*3 153752 



0117111 



G08 



01 



BL 



ERRORS 



0* N0ERR0R1 



9:3*:51 2/07/81 **** 

CTAPM W770 

# GO TO ERROR RETURN BECAUSE BACKSPACE WAS 
FATAL 



-001- 07 I SUBTRACT D 1%R0M Y R8,T0 SET-UP THE ENTRY TO THE NEXT SEGMENT 
-001- 08 SN R8,1 * SUBTRACT 1 FROM THE SEGMENT IN RB 

-001-09 CALL DISPLAY » SHOW THE SEGMENT ON THE SSP'S L.E.O. 'S 

-002- 10 BSA DISPLAY 



12 



B 



Y1READ1 



n BACKSPACE IS GOOD. GO TO REREAD 9L0CK Y+1 



01171*0 



01171*0 10 0001** 130*20 0*5266 LAYOUT 
01171*2.10 0001*6 00*037 



01171*3 10 0001*7 0171*1 003777 
01171*5 10 000151 055765 0117132 



01171*6 

01171*6 10 000152 00*602 

01171*7 10 000153 037020 117767 0117767 
0117151 



0117151 10 000155 130520 0*6765 MASACS 

0117153 10 000157 0*6123 

011715* 10 000160 003100 

0117155 



16 Y1SAVE 





18 
19 




21 
22 




2* 
25 




27 
28 


001- 
001- 
002- 


31 
32 
33 
3* 


■001- 


36 
37 




39 

40 
41 
42 



* THE READ WAS GOOD. CHECK THE TR/BLK ID AND SAVE THE CRC IF 
H THE THE BLOCK NUMBER IS GOOD. 



LL 

SN 



R1,I_0BUF 
R1,1 



* SET UP R1 WITH THE TR/BLK ID 

H SUBTRACT 1 FROM THE BLOCK NUMBER IN R1 . 



n COMPARE THE EXPECTED BLOCK NUMBER (IN R6> TO THE BLOCK WHICH WAS 
H READ FORM THE TAPE (IN R1). 



CRM R6,R1,M(BLKADDR> 
BNC ERR0R1 



SEGINC 2 

AN R8,2 

CALL DISPLAY 

BSA DISPLAY 



n IF THE 2 BLOCK NUMBERS ARE NOT EOUAL.IT IS 
AN ERROR 



n ADD 2 TO THE SEGMENT IN R8 

# SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 



SEGMULT 14,19,24 a- . _ , A 

* THIS SECTION OF CODE MAKES-UP SEGMENTS 14 19 AND 24 

* STORS THE CRC IN THE CRC TABLE AFTER THE BLOCK NUMBER IS TESTED „„„„ 

II R5,I OBUF+CRC * LOAD R5 WITH THE CRC FROM THE I_0 BUFFER 

STX R5,R3(RA0) * STORE THE CRC IN THE CRC TABLE 

IR **'"**-» „ SETUp T0 ST0RE THE STAT us OF THE BLOCK 



44 NEXTT 
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9:3*:51 2/07/81 **** 
CTAPM W77D 



01 U STORE THE STATUS BITS. R4 CONTAINS THE STATUS, EITHER R* * 

02 K IF THE READ HAS GOOD BEFORE R2 " 0, OR R* * FATAL IF THE READ 

03 WAS FATAL THREE TIMES (HARD ERROR). 



0117155 10 000161 1*6503 



05 



STX 



R*,R3(RA1> 



# STORE THE STATUS IN THE TABLE 
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B09 



01 * AFTER READING BLOCK Y+1, BACKSPACE ONE BLOCK 



9:34:51 2/07/81 **** 
CTAPM W77D 



0117156 

0117156 10 000162 037020 117776 0117776 -001- 
0117160 



0117160 10 000164 155752 



0117132 



05 

07 
08 

10 



CALL 
BSA 

BNC 



BACKSU8 
BACKSUB 

ERR0R1 



K THIS BACKSPACE WILL BE USED SET VP EITHER 
THE 

K BEGINING OF THE NEXT READ OR THE FIRST 

WRITE 
GO TO ERROR RETURN BECAUSE THE BACKSPACE 

WAS FATAL 



0117161 



-001- 



15 SEGMULT 15,20,25 

16 * THIS SECTION OF CODE MAKES-UP SEGMENTS 15 20 AND 25 



0117161 

0117161 10 000165 004601 

0117162 

0117162 10 000166 037020 117767 0117767 


-001- 
-001- 
-002- 


18 
19 
20 
21 


SEGINC 
AN 
CALL 
BSA 


R8,1 

DISPLAY 

DISPLAY 


0117164 




23 


STATFINI 




0117164 10 000170 103465 000016 




25 


CI 


R3,LSTY1ENT 



0117166 10 000172 055646 



0117034 



n ADD 1 TO THE SEGMENT IN R8 

# SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 



* IS R3 INDEXING THE EN7«RY FOR BLOCK Y+1, 
TRACK ADDR. 3 

27 § ***************************************************************** 

28 * THIS IS THE EXIT CHECK FOR THIS LOOP 

29 M ***************************************************************** 

30 BNC RDSTAT # IF NOT BRANCH BACK TO CONTINUE WITH THIS 

LOOP 
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0117167 



0117167 10 000173 003601 000036 

0117171 

0117171 10 000175 037020 117767 0117767 



9:34:51 2/07/81 **** 
CTAPM W77D 



-001- 
-001- 
-001- 

-001- 
-001- 
-002- 



01 SEGINT 30 

02 # **************************************************************** 

03 * INITIALIZE THE SEGMENT NUMBER TO 30 

04 K **************************************************************** 



06 
07 
08 



LI 

CALL 

BSA 



R8,30 

DISPLAY 

DISPLAY 



n LOAD SEGMENT NUMBER 30 INTO R8 

* SHOW THE SEGMENT ON THE SSP'S L.E.D. 



10 * THIS STEP OF THE TEST WILL TRY TO USE THE WRITE CIRCUITS. TRACK 

11 # ADDR. 1 IS WRITTEN FIRST, THEN THE NEXT TRACK IS READ TO SEE IF 

12 It THE PREVIOUS WRITE HAS EFFECTED IT IN ANY DETECTABLE HAY. THEN 

13 U THE PROCESS IS REPEATED FOR TRACK ADDR. 2 AND 3. THE LOOP IS 

14 « FINISHED WHEN TRACK ADDR. 3 HAS BEEN WRITTEN. 



18 * RAO IS SETUP WITH THE ADDRESS OF THE 'STATUS'. SET UP R3 WITH 

19 n AN INDEX POINTIi.G TO THE 2ND ENTRIES AND LOAD R6 WITH THE BLOCK 

20 U NUM8ER OF THE FIRST BLOCK READ FROM TAPE, ADD 1 TO THE TRACK 

21 n ADDRESS AND STORE IT AWAY. 



0117173 10 000177 103071 25 LN 

0117174 10 000200 042503 27 LX 

0117175 10 000201 040146 29 L 

0117176 10 000202 003540 004000 30 AI 

0117200 32 WRITE1 

0117200 

-001- 

0117200 10 000204 103042 

0117201 

0117201 

0117201 10 000205 137020 117776 0117776 -001- 
0117203 10 000207 155727 0117132 



R3,SNDY0ENT * SET UP INDEX TO POINT TO THE SECOND TABLE 

ENTRY 
R4,R3(RA1) * LOAD R4 WITH THE PRIOR STATUS COLLECTED 

EARLIER. 
R6,N(BLKADDR)(RA0) H LOAD R6 WITH THE BLOCK NUMBER IN THE TABLE 
R6,E(S(TRK)> .¥ *DD 1 TO THE TRACK ADDR. 



34 SEGMULT 30,37,44 

35 a THIS SECTION OF CODE MAKES-UP SEGMENTS 30 37 AND 44 



40 WRBKSP 

42 
43 

44 



CALL 

BSA 

BNC 



R2,2 



BACKSUB 
BACKSUB 
ERR0R1 



* LOAD R2 WITH A BX COUNTER FOR HARD ERROR 
DETECTION 



# BACKSPACE TO SET UP THE NEXT WRITE 
n THE BACKSPACE WAS BAD. 
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011720* ' 



0117204 

0117204 10 000210 004601 

0117205 

0117205 10 000211 037020 117767 0117767 

0117207 

0117207 10 000213 137020 120017 0120017 

0117211 10 000215 154017 0117230 



0117212 

0117212 10 000216 004217 

0117213 

0117213 10 000217 037020 117767 0117767 

0117215 10 000227 136040 117201 0117201 

0117217 

0117217 10 000223 004601 

0117220 

0117220 10 000224 037020 117767 0117767 

0117222 10 000226 114104 

0117223 10 000227 054707 0117132 

0117224 



0117224 

0117224 10 000230 004601 

0117225 10 000231 037020 117767 0117767 



9:34:51 2/07/81 **** 
CTAPM W770 



-001- 



01 SEGMULT 31,38,45 

02 THIS SECTION OF CODE MAKES-UP SEGMENTS 31 38 AND 45 



-001- 
-001- 
-002' 



-001 ■ 



04 
05 
06 
07 

0? 
10 
11 



SEGINC 
AN 

CALL 
BSA 

CALL 

BSA 

BC 



R8,1 

DISPLAY 

DISPLAY 

WRITESUB 
VRITESUB 
CRCSTORE 



# ADD 1 TO THE SEGMENT IN R8 

# SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

» WRITE BLOCK Y WITH THE GENERATED DATA 
U THE WRITE WAS GOOD 



-001- 
-001- 
-001- 
-002- 



-001- 
-001- 
-001- 
-002- 



13 * THIS BRANCH IS TAKEN WHEN A FATAL ERROR IN THE WRITE ROUTINE HAS 

14 # BEEN DETECTED. THE BX COUNTER IN R2 IS USED TO DECIDE IF THE FATAL 

15 » WRITE WAS A SOFT OR HARD ERROR. IF R2=0 IT IS A HARD ERROR AND 

16 * THIS PART OF THIS TEST HAS FAILED. 

18 SEGDEC 1,Y 

19 H SUBTRACT 1 FROM RB,TO SET-UP THE ENTRY TO THE NEXT SEGMENT _ " 

20 SN R8,1 n SUBTRACT 1 FROM THE SEGMENT IN R8 

21 CALL DISPLAY * SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

22 BSA DISPLAY 



24 



BX 



R2,WRBKSP 



# IS R2 = 0, IF NO TRY AGAIN. 



26 SEGINC 1,Y 

27 U ADD 1 TO R8, TO SET-UP THE ENTRY TO THE NEXT SEGMENT 

28 AN R8,1 * ADD 1 TO THE SEGMENT IN R8 

29 CALL DISPLAY * SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

30 BSA DISPLAY 

32 K NOW CHECK IF THIS BLOCK COULD BE READ BEFORE 



34 
35 



TZ 
BC 



R4 

ERR0R1 



# IF THIS BLOCK WAS READABLE R4 « 
n IF R2 ■ 0, THERE IS A HARD ERROR 



-001- 



-001- 
-001- 
-002- 



37 SEGMULT 32,39,46 

38 * THIS SECTION OF CODE MAKES-UP SEGMENTS 32 39 AND 46 



40 
41 
42 
43 



SEGINC 
AN 
CALL 
BSA 



R8,1 

DISPLAY 

DISPLAY 



n ADD 1 TO THE SEGMENT IN R8 

n SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 



0117227 10 000233 153703 



0117132 



45 n IF R4 IS NOT EttUAL TO 0, THEN THIS BLOCK COULD NOT BE READ 

46 n AND THERE MAY BE OTHER PROBLEMS (BAD TAPE,A WRITE PROBLEM WHICH 

47 * HAS NOT BEEN FIXED) § ^ ^ ^ ^ ^^ 
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9:34:51 2/07/81 **** 


SUPPORTING SUBROUTINES 










CTAPM W77D 


0117230 






01 


CRCSTORE 


' 


0117230 




-001- 


03 
04 


1 


SEGMULT 
THIS SECTION 


33,40,47 

OF CODE MAKES-UP SEGMENTS 33 40 AND 47 


0117230 

0117230 10 
0117231 

0117231 10 


000235 037020 117767 0117767 


-001- 
-001- 
-002- 


06 
07 
08 
09 




SEGINC 
AN 

CALL 
BSA 


2 

R8,2 K ADD 2 TO THE SEGMENT IN R8 

DISPLAY * SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

DISPLAY 


0117233 10 

0117235 10 

0117236 10 

0117240 10 


000237 130520 046765 MAS ACS 

000241 046123 

000242 003465 000015 

000244 054056 0117316 




11 
12 
13 
14 

16 
17 
18 
19 


§ 
» 


THE WRITE OF THIS BLOCK IS DONE, STORE THE CRC AND CONTINUE 

LL R5,I OBUF+CRC » LOAD R5 HITH THE CRC FROM THE I BUFFER 
STX R5,R3(RA0) # STORE THE NEW CRC IN TO THE CRC TABLE 
CI R3,LSTY0ENT M IF R3 = THE LAST BLOCK Y ENTRY,THIS LOOP IS 

DONE 

************************************** AAA****************** A***** 

THIS IS THE EXIT CHECK FOR THIS LOOP 
***************************************************************** 

BC READ2 n IF R3 IS POINTING TO THE LAST Y ENTRY EXIT 

THIS LOOP 


0117243 10 000247 003540 004000 




24 
25 

27 




AN 
LX 

AI 


R3,NXTY1ENT § POINT TO THE NEXT Y BLOCK IN THE TABLE. 
R4,R3(RA1) * LOAD R4 WITH THE PRIOR STATUS COLLECTED 

EARLIER. 
R6,E(S(TRK)) * ADD 1 TO THE TRACK ADDR. 


0117245 10 


000251 003042 




31 




LN 


R2,2 M LOAD R2 WITH A BX COUNTER FOR HARD ERROR 
DETECTION 


0117246 






34 


TRRBKSP 




0117246 

0117246 10 000252 137020 117776 0117776 


-001- 


36 
37 

38 




CALL 
BSA 

BNC 


BACKSUB H BACKSPACE TO SET UP THE NEXT REREAD 

BACKSUB 

ERR0R1 It THE BACKSPACE WAS BAD. 


0117251 




-001- 


40 
41 


SEGMULT 
* THIS SECTION 


34,41 

OF CODE MAKES-UP SEGMENTS 34 AND 41 


0117251 

0117251 10 000255 004601 

0117252 

0117252 10 000256 037020 117767 0117767 


-001- 
-001- 
-002- 


43 
44 
45 
46 




SEGINC 
AN 

CALL 
BSA 


R8,1 U A.JD 1 TO THE SEGMENT IN R8 

DISPLAY # SHOW THE SEGMENT CN THE SSP'S L.E.D.'S 

DISPLAY 
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0117254 

011725* 10 000260 137020 120045 0120045 

0117256 10 000262 154017 0117275 



0117257 

0117257 
0117260 
0117260 

0117262 
0117263 

0117264 

0117264 
0117265 
0117265 

0117267 

0117271 

0117271 
0117272 
0117272 

0117274 



10 000263 004603 

10 000264 037020 117767 0117767 

10 000266 114104 

10 000267 055715 0117200 

10 000270 004214 

10 000271 037020 117767 0117767 
10 000273 136040 117246 0117246 

10 000275 004601 

10 000276 037020 117767 0117767 
10 000300 153636 0117132 



01 

-001- 02 

03 



F09 



CALL READSUB 
8SA READSUB 
BC YRRNOERR 



9:34:51 



2/07/81 **** 



CTAPM W77D 

* REREAD BLOCK Y TO SEE If IT IS THE SAME 

* THE REREAD WAS GOOD. GOTO CHECK WHAT IT WAS 



05 # THERE WERE ERRORS IN THE REREAD OF BLOCK Y. CHECK IF THIS BLOCK 

06 » WAS FLAGGED AS FATAL BEFORE. IF IT WAS THEN THIS IS THE RIGHT LEG 

07 If AND NOTHING HAS CHANGED. IF IT WAS READABLE THE FIRST TIME,BX USING 

08 » R2 UNTILL R2»=0. THEN IT IS ASSUMED THAT A PREVIOS WRITE DESTOYED 

09 It THIS BLOCK. 



11 
-001- 12 
-001- 13 
-001- 14 
-002- 15 

17 
18 



-001 
-001 
-001- 23 
-002- 24 



20 
21 
22 



SEGINC 3,Y 

ADD 3 TO R8, TO SET-UP THE ENTRY TO THE NEXT SEGMENT 

AN R8,3 ADD 3 TO THE SEGMENT IN R8 

CALL DISPLAY # SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

BSA DISPLAY 

U R4 # CHECK R4 FOR ZERO 

BNC WRITE1 » IF R4 IS NOT * THIS IS THE RIGHT LEG, 

CONTINUE 

SEGDEC 4,Y 
SUBTRACT 4 FROM R8,T0 SET-UP THE ENTRY TO THE NEXT SEGMENT 

SN «8,4 » SUBTRACT 4 FROM THE SEGMENT IN R8 

CALL DISPLAY # SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

BSA DISPLAY 



-001- 
-001- 
-001- 



26 

28 



BX 



R2,YRRBKSP 



SEGINC 1,Y 



U IF R4=0, CHECK R2 FOR O.IF R2 NO * TRY 
AGAIN. 



CO OCWAnw I / i 

29 U ADD 1 TO R8, TO SET-UP THE ENTRY TO THE NEXT SEGMENT 



30 
51 



-002- 32 
34 



AN 

CALL 

BSA 

B 



R8,1 

DISPLAY 

DISPtAY 

ERR0R1 



* ADD 1 TO THE SEGMENT IN R8 

§ SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

It IF R2=0, ASSUME A PREVIOUS WRITE DESTROYED 
THIS BLOCK 



0117275 
0117275 

0117275 

0117275 10 000301 104601 

0117276 

0117276 10 000302 037020 117767 0117767 



39 YRRNOERR 

41 SEGMULT 35,42 
-001- 42 * THIS SECTION OF CODE MAKES-UP SEGMENTS 35 AND 42 



44 
-001- 45 
-001- 46 
-002- 47 



SEGINC 

AN R6,1 

CALL DISPLAY 

BSA DISPLAY 



n ADD 1 TO THE SEGMENT IN R8 

n SHOW THE SEGMENT ON THE SSP'S L.E.D. 'S 
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0117300 10 000304 114104 

0117301 10 000305 055631 



0117132 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 

12 

14 



ML 



9:34:51 2/07/81 **** 
CTAPM W77D 



H THIS BRANCH IS TAKEN WHEN A REREAD OF BLOCK Y IS GOOD. THIS LEG 
K BEEN CHANGED. THE SAME IS TRUE FOR THE CRC, IF IT HAS CHANGED 
H Of THIS CHECK MILL 1) SEE IF THIS BLOCK WAS READABLE BEFORE, AND 

# 2) CHECK THE CRC TO SEE IF IT IS WHAT IT SHOULD BE. IF BOTH OF 

# THESE TESTS ARE PASSED THEN THE BLOCK APPEARS TO BE UNCHANGED 

# FROM THE TIME THE CRC WAS ENTERED INTO THE TABLE AND NOW, THE 

# BLOCK HAS BEEN CHANGED BY A PREVIOUS WRITE. (IF THE READ SELECT 

# AND THE WRITING OF THIS BLOCK CAN CONTINUE. BUT, IF R4 IS NOT 

U EQUAL TO 0, THEN THIS BLOCK (UNREADABLE BEFORE, READABLE NOW) HAS 
n AND THE CRC CIRCUITS ARE RELIABLE.) EITHER CASE IS AN ERROR. 



TZ 
BNC 



R4 
ERR0R1 



H TEST IF R4 «= 0. (R4 = IF THIS BLOCK WAS 

READABLE BEFORE) 
# IF R4 IS NOT 0, THEN A UNREADABLE BLOCK IS 

READABLE 



0117302 



0117302 

0117302 10 000306 004601 

0117303 

0117303 10 000307 037020 117767 0117767 

0117305 10 000311 142023 

0117306 10 000312 030520 046765 MASACS 

0117310 10 000314 020025 

0117311 10 000315 055621 0117132 



19 SEGMULT 36,43 
-001- 20 # THIS SECTION OF CODE MAKES-UP SEGMENTS 36 AND 43 



22 
-001- 23 
-001- 24 
-002- 25 

27 

ZH 
29 
30 



SEGINC 

AN R8,1 

CALL DISPLAY 

BSA DISPLAY 



LX 

LL 
CR 
BNC 



R1,R3(RA0) 
R5,I OBUF+CRC 
R1,R5 
ERR0R1 



U ADD 1 TO THE SEGMENT IN R8 

U SHOW THE SEGMENT ON THE SSP'S L.E.D. 



It GET THE OLD CRC FROM THE TABLE 

* LOAD R5 WITH THE CRC FROM THE 10 BUFFER 

# COMPARE THE OLD ANO THE NEW CRC T S 
H BRANCH IF THE CRC ARE NOT THE SAME 



0117312 



0117312 

0117312 10 000316 004601 

0117313 

0117313 10 000317 037020 117767 0117767 



34 SEGMULT 37,44 
-001- 35 H THIS SECTION OF CODE MAKES-UP SEGMENTS 37 AND 44 





37 


SEGINC 




001- 


38 


AN 


R8,1 


001- 


39 


CALL 


DISPLAY 


002- 


40 


BSA 


DISPLAY 



0117315 10 000321 153663 



0117200 



U ADD 1 TO THE SEGMENT IN R8 

n SHOW THE SEGMENT ON THE SSP'S L.E.D. 



42 K IT R4=0 AND THE CRC'S ARE THE SAME THEN IT IS ASSUMED TO BE SAFE 

43 It TO OVER-WRITE THE THE BLOCK. THEREFORE BRANCH TO THE WRITE TEST. 



45 



WRITE1 
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B01 



TDC DIAGNOSTIC PROGRAM. 
SUPPORTING SUBROUTINES 



9:34:51 2/07/81 **** 
CTAPM W77D 



0117316 
0117316 



01 READ2 



03 SEGINT SO 

-001- 04 K **************************************************************** 

-001- 05 # INITIALIZE THE SEGMENT NUMBER TO 50 

-001- 06 # **************************************************************** 



0117316 10 000322 103601 000062 -001- 08 
0117320 -001- 09 

0117320 10 000324 037020 117767 0117767 -002- 10 

12 /» 

13 * 

14 » 

15 # 

16 # 

17 n 

18 n 

20 n 

21 * 

22 * 

23 n 

24 n 

25 n 

27 n 

28 * 

29 n 

30 H 

31 H 

32 n 

33 * 

34 # 



LI 

CALL 

BSA 



R8,50 

DISPLAY 

DISPLAY 



H LOAD SEGMENT NUMBER 50 INTO R8 

n SHOW THE SEGMENT ON THE SSP'S L.E.O.'S 



THE NEXT STEP IN THIS TEST IS TO CONFIRM THAT THE BLOCKS WHICH 
WERE SUPPOSED TO BE WRITTEN ON THE TAPE, ARE OUT THERE. THIS IS 
DONE BY READING THE BLOCKS AGAIN AND COMPARING THE CRC'S IN THE 
STATUS TABLE TO THE CRC'S OF THE BLOCKS ON THE TAPE. THEN THE 
2ND BLOCKS ARE READ, BLOCKS Y+1.IF THESE BLOCKS WERE,AND STILL 
ARE GOOD THEN THE TEST IS OVER AND THE DIANOSTIC WILL REPOSITION 
THE TAPE INSIDE THE NORMAL SYSTEM DATA AREA. 

IF THE SPEED TEST IS NOT GOING TO BE RUN BECAUSE THE TAPE IS TOO 
SHORT, THE REREAD OF BLOCK Y IS STILL DONE TO DETECT ANY FAULTS 
IN THE WRITE CIRCUITS, AND IF THE TESTS PASS, THE DIAGNOSTIC 
WILL PRINT OUT A FAIL MESSAGE WHICH CAN BE EQUATED TO A 
SHORT (BAD) TAPE, INSTEAD OF A BAD PEICE OF HARDWARE EITHER IN 
THE TDC OR THE MINI-RECORDER. 

IF THE SPEED TEST IS GOING TO BE RUN AND ANY OF THE Y+1 
BLOCKS WERE FLAGGED AS UNREADABLE AT THE START,THEN THE BAD Y+1 
BLOCK(S) MUST BE WRITTEN CORRECTLY, THEN BLOCK Y MUST BE REWRITTEN, 
THEN THE BLOCK Y+1 MUST BE REREAD TO DETECT SPILL OVER WHICH IS 
CAUSED BY A SPEED ERROR OF THE TRANSPORT. THIS REWRITING OF BLOCK 
Y+1 IS AN ADDITIONAL STEP OUTSIDE OF THE LOOP USED TO REREAD 
THE BLOCKS WHICH WERE READABLE AT THE START AND IS ATEMPTED AFTER 
THE OTHER TESTS OF THE WRITE CIRCUITS HAVE PASSED THE OTHER TESTS. 



36 n OTHER ERRORS WHICH WILL CAUSE THIS STEP TO FAIL ARE A FATAL READ 

37 H OR BACKSPACE, OR IF THE WRITES ARE DESTRUCTIVE OR HAVE NO EFFECT 

38 H ON THE TAPE (NO POWER TO THE ERASE/WRITE HEADS, FOR AN EXAMPLE) 
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SUPPORTING SUBROUTINES 



C01 



9:34:51 2/07/81 **** 
CTAPM W77D 



01 * THIS SECTION IS SIMILAR TO THE ONE THAT COLLECTED THE INFORMATION 

02 If FOR THE STATUS TABLE, EXCEPT THIS TIME IT CHECKS WHAT IS ON THE 

03 » TAPE AGAINST WHAT THE STATUS TABLE SAYS IT SHOULD BE. 



07 # AFTER THE WRITE CIRCUITS HAVE BEEN USED, THE FIRST BLOCK TO BE 

08 K CHECKED AGAINST THE STATUS TABLE IS BLOCK Y,TRACK ADDR. 0. THIS 

09 * IS DONE (AFTER A BACKSPACE) TO INSURE THAT THE WRITE PROTECTED 

10 * TRACK IS SAFE FROM WRITES TO TRACK ADDR.'S 1, 2, AND 3. 



0117322 10 000326 140146 

0117323 10 000327 003070 ™ 

0117324 10 000330 053003 0117327 



0117325 
0117325 

0117325 10 000331 103540 004000 



14 
15 
16 
17 
18 
1? 
20 
21 

23 
24 
25 
26 
27 
28 
29 
30 



34 
35 
36 



il THIS LOOP WILL BACKSPACE TO SET UP THE READ OF BLOCK Y,REAO IT, 
It AND IF THERE IS NO HARD ERROR, CHECK THE CRC IN THE STATUS TABLE 
» AGAINST THE CRC READ OFF THE TAPE (IN THE 1.0 BUFFER) TO SEE IF 
tf IT IS WHAT THE TABLE SAYS IT SHOULD BE. IF IT IS CHECK IF THE 

# SPEED TEST IS TO BE RUN. IF IT IS, TEST THE STATUS OF THE 

H BLOCK Y+1. IF IT WAS BAD GO TO READ THE NEXT BLOCK Y.IF IT IS 
n GOOD, READ IT TO SEE IF THE WRITE OF BLOCK Y HAS EFFECTED IT 
n (THIS BLOCK WILL BE UNREADABLE IF THERE IS A SPEED ERROR) 

» THIS LOOP STARTS WITH THE TAPE HEADS AFTER THE THE BLOCK Y, 

# AND STARTS BY REREADING THE WRITE PROTECTED TRACK, TRACK ADOR. 0. 
It IF THIS FIRST REREAD FAILS THERE IS A REAL PROMBLEM IN THIS TDC. 
H AFTER THE FIRST BLOCK IS READ (NO HARD FAIL) THE BLOCKS Y AND Y+1 
« ARE READ OFF THE REMAINING TRACKS, PROVIDED THAT THE FIRST READ 

n OF THE BLOCK Y+1 UNDER TEST WAS NOT A HARD ERROR. IF IT WAS THE 

# LAST STEP WILL BE USED TO WRITE BLOCK Y+1, REWRITE BLOCK Y+1, 
II REWRITE Y, THEN REREAD Y+1 TO CHECK FOR THE SPEED ERROR. 



L 

LN 

B 



R6,N(BLKADDR)(RA0) 

R3,TABLT0P 

CHKSTAT 



H LOAD R6 WITH THE BLOCK NUMBER 
ft SET UP THE INDEX TO THE FIRST TABLE ENTRY 
H BRANCH AROUND THE 'ADD 1' TO THE SEGMENT 
NUMBER 



39 CHCKSTAT 



41 SEGMULT 50,54,62,68 
-001- 42 # THIS SECTION OF CODE MAKES-UP SEGMENTS 50 54 62 AND 68 



44 



AI 



R6,E(S(TRK)) 



n ADD 1 TO THE TRACK ADDR. 



COMMON TAPE MAINTENANCE 

9:34:51 2/07/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPM 



PR-1C958-50 
ISSUE 06 PAGE 



125 

















D01 


TDC DIAGNOSTIC 


PROGRAM. 




9:34:51 2/07/81 **** 


SUPPORTING SUBROUTINES 




CTAPM W77D 


0117327 






01 CHKSTAT 


0117327 10 000333 
0117330 10 00033* 


1425C3 

003042 




03 LX R4,R3(RA1) U LOAD R4 WITH THE PRIOR STATUS COLLECTED 

EARLIER. 
05 LN R2,2 U SET UP R2 WITH A BX COUNTEr FOR HARD ERROR 

ON THE READ 










08 H BACKSPACE TO SET UP THE BLOCK Y REREAD. 


0117331 






10 YBS2 


0117331 

0117331 10 000335 

0117333 10 000337 


137020 117776 0117776 
155335 0117670 


-001- 


12 CALL BACKSUB * SET UP THE REREAD OF BLOCK Y 

13 BSA BACKSUB 

14 BNC ERRORS H GO TO ERROR MESSAGE RETURN BECAUSE 

BACKSPACE WAS FATAL 


0117334 




-001- 


19 SE6MULT 51,55,61,69 

20 II THIS SECTION OF CODE MAKES-UP SEGMENTS 51 55 61 AND 69 


0117334 

0117334 10 000340 004601 

0117335 • 

0117335 10 000341 037020 117767 0117767 


-001- 
-001- 
-002- 


22 SEGINC 

23 AN R8,1 it ADD 1 TO THE SEGMENT IN R8 

24 CALL DISPLAY It SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

25 BSA DISPLAY 








27 n NOW TRY TO REREAD THE BLOCK Y (THIS READ WILL READ ALL TRACKS) 


0117337 

0117337 10 000343 

0117341 10 000345 


137020 120045 0120045 
154011 0117352 


-001- 


29 CALL READSUB » REREAD BLOCK Y 

30 BSA READSUB 

31 BC YCHECK # THE REREAD WAS GOOD SO CHECK THE TR/BLK ID 

AND CRC 




- 




34 H CHECK R2 FOR A HARD ERROR INDICATION. IF IT IS NOT - BACKSPACE 

35 # AND TRY AGAIN. IF IT IS EQUAL TO THEN IT IS A HARD ERROR. 


0117342 10 000346 


036040 117331 0117331 




37 BX R2,YBS2 # IF THE COUNT IS NOT EQUAL TO ZERO RETRY THE 

READ 








40 * NOW CHECK IF THIS BLOCK COULD BE READ BEFORE 


0117345 10 000351 054323 0117670 




42 TZ R4 n IF THIS BLOCK WAS READABLE R4 ■ 

43 BC ERRORS # IF R2 - 0, THERE IS A HARD ERROR 


0117346 




-001- 


45 SE6MULT 52,56,63,70 

46 tt THIS SECTION OF CODE MAKES-UP SEGMENTS 52 56 63 AND 70 
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TOC DIAGNOSTIC PROGRAM. 
SUPPORTING SUBROUTINES 

0117346 

0117346 10 000352 004601 

0117347 

0117347 10 000353 037020 117767 0117767 



0117351 10 L™355 153317 



0117670 



E01 



01 


SEGINC 




001- 02 


AN 


R8,1 


001- 03 


CALL 


DISPLAY 


002- 04 


MA 


DISPLAY 



9:34:51 



2/07/81 **** 
W77D 



CTAPM 



# ADD 1 TO THE SEGMENT IN R8 

U SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 



06 » IF R4 IS NOT EflUAL TO 0, THEN THIS BLOCK COULD NOT BE READ 

07 # AND THERE MAY BE OTHER PROBLEMS (BAD TAPE, A WRITE PROBLEM WHICH 

08 It HAS NOT BEEN FIXED) 

09 B ERRORS It THERE MAY BE OTHER PROBLEMS 



0117352 
0117352 



0117352 

0117352 10 000356 104602 — 

0117353' 

0117353 10 000357 037020 117767 0117767 

0117355 10 000361 130520 046765 MASACS 
0117357 10 000363 042023 

0117360 10 000364 020025 

0117361 10 000365 055307 0117670 

0117362 

0117362 

0117362 10 000366 004601 

0117363 

0117363 10 000367 037020 117767 0117767 

0117365 10 000371 104461 



13 YCHECK 

15 SEGMULT 53,57,64,71 
-001- 16 # THIS SECTION OF CODE MAKES-UP SEGMENTS 53 57 64 AND 71 





18 


001- 


19 


001- 


20 


002- 


21 




23 




24 




25 




26 



SEGINC 2 

AN R8,2 

CALL DISPLAY 

BSA DISPLAY 



H ADD 2 TO THE SEGMENT IN R8 

# SHOW THE SEGMENT ON THE SSP'S L.E.D. 



THE REREAD WAS GOOD. CHECK THE CRC. 
LL R5,I OBUF+CRC M 
LX R1,R3"(RA0) # 
CR R1,R5 It 



23 



BNC 



ERRORS 



SET UP R5 WITH THE CRC 

LOAD R1 WITH THE CRC FROM THE TABLE 

IF THE REGISTERS ARE NOT EOUAL THERE IS AN 

ERROR 

IF THE 2 CRC'S ARE NOT EQUAL IT IS AN ERROR 



30 SEGMULT 54,58,65,72 
-001- 31 It THIS SECTION OF CODE MAKES-UP SEGMENTS 54 58 65 AND 72 



33 

-001- 34 
-001- 35 
-002- 36 

38 

40 
♦1 

42 

13 
44 



SEGINC 

AN R8,1 

CALL DISPLAY 

BSA DISPLAY 



AN 



R3,1 



It ADD 1 TO THE SEGMENT IN R8 

It SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 



It INCREMENT THE INDEX 



THE FIRST TIME THROUGH THE LOOP, AFTER READING TRACK ADDR. 0, 
THE NEXT PART OF THIS LOOP IS NOT USED BECAUSE THE BLOCK Y+1 ON 
TRACK ADDR. 0,1$ NEVER USED (UNLESS THE SPEED TEST IS NOT RUN 
BUT THEN THE BLOCK HAS BEEN READ). BRANCH TO READ THE BLOCK Y 
OFF OF TRACK ADDR. 1, IF TRACK ADDR. 0, BLOCK Y WAS JUST READ 
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_EQ1_ 



TOC DIAGNOSTIC PROGRAM. 

SUPPORTING SUBROUTINES 
0117366 10 000372 003465 000011 
0117370 10 000374 054735 0117325 



01 
03 



CI 

BC 



R3,SN0Y0ENT 
CHCKSTAT 



9:34:51 2/07/81 **** 

CTAPM W77D 

H CHECK IF THIS IS THE FIRST TIME THROUGH 

THIS LOOP 
K IF YES, THE REST OF THIS LOOP IS USELESS 



0117371 

0117371 10 000375 004603 

0117372 

0117372 10 000376 037020 117767 0117767 



0117374 10 000400 151105 

0117375 10 000401 054041 



011/436 



07 K THE NEXT STEP IS TO CHECK IF THE TEST IS GOING TO RUN THE SPEED TEST 

08 n THIS MAS CALCULATED BEFORE AND THE FLAG MAS SET. TEST THE FLAG AND 

09 n BRANCH IF IT IS SET, OTHERMISE REREAD THE NEXT BLOCK 

11 SEGINC 3,Y 

-001- 12 * ADD 3 TO R8, TO SET-UP THE ENTRY TO THE NEXT SEGMENT 
-001- 13 AN R8,3 « ADD 3 TO THE SEGMENT IN R8 

-001- 14 CALL DISPLAY * SHOH THE SEGMENT ON THE SSP'S L.E.D.'S 

-002- 15 BSA DISPLAY 

N(CATP)(RAO),S(CATP) K IS THE BIT SET? 

U IF YES, GO CHECK IF THIS MAS THE LAST BLOCK 



0117376 10 000402 042503 — 

0117377 10 000403 014104 — 
0117400 10 000404 055036 — 
0117401 



17 

18 


TBS 
BC 


N(CATP)(RA 
CHCKFINI 


22 


LX 


R4,R3(RA1) 


24 


TZ 


R4 


26 


BNC 


CHCKFINI 



It LOAD R4 MITH THE OLD STATUS SAVfcD IN THE 

TABLE 
n TEST IF THIS BLOCK HAD A HARD READ ERROR 
THE FIRST ATTEMPT 
0117436 26 BNC CHCKFINI # IF THIS BLOCK COULD NOT BE READ, SKIP THIS 

PART 
28 SEGDEC 3,Y 
-001- 29 # SUBTRACT 3 FROM R8,T0 SET-UP THE ENTRY TO THE NEXT SEGMENT 

011-7401 10 000405 004215 -001- 30 SN R8,3 * SUBTRACT 3 FROM THE SEGMENT IN R8 

0117402 -001-31 CALL DISPLAY * SHOM THE SEGMENT ON THE SSP'S L.E.D.'S 

0117402 10 000406 037020 117767 0117767 -002- 32 BSA DISPLAY 



0117404 10 000410 103042 



34 



LN 



R2,2 



U SET UP R2 WITH THE BX COUNTER AGAIN 



0117405 

0117405 

0117405 10 000411 137020 120045 0120045 

0117407 10 000413 154016 0117425 



0117410 10 000414 036040 117413 0117413 
0117412 10 000416 053256 0117670 



-001- 



38 Y1READ2 

40 
41 
42 



CALL READSUB 
BSA READSUB 
BC Y1BS2 



* REREAD BLOCK Y+1 

4 THE REREAD MAS GOOD. NO SPEED ERROR 



44 % CHECK R2 FOR A HARD ERROR INDICATION. IF IT IS NOT * BACKSPACE 

45 U AND TRY AGAIN. 

46 # IF R2 NOT EQUAL TO 0, USE SPECIAL BACKSPACE AND RETRY THE READ 

47 BX R2,ERRBKSP2 

48 B ERRORS # If A HARD ERROR OCCURS THEN THERE IS A 

SPEED ERROR 
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601 



9:34:51 2/07/81 **** 
CTAPM W77D 



0117413 
0117413 



0117413 

0117413 10 000417 104601 

0117414 

0117414 10 000420 037020 117767 0117767 

0117416 

0117416 10 000422 137020 117776 0117776 

0117420 10 000424 155250 0117670 

0117421 

0117421 10 000425 004217 

0117422 • 

0117422 10 000426 037020 117767 0117767 

0117424 10 000430 153761 0117405 



08 
-001- 0? 

11 
-001- 12 
-001- 13 
-002- 14 

16 

-001- 18 
19 

21 
-001- 22 
-001- 23 
-001- 24 
-002- 25 

27 



04 H BACKSPACE TO SET UP THE REREAD OP BLOCK Y+1 . 

06 ERRBKSP2 

SEGMULT 59,66,73 
tt THIS SECTION OF CODE MAKES-UP SEGMENTS 59 66 AND 73 



SEGINC 
AN 

CALL 
BSA 

CALL 



BSA 
BNC 



R8,1 

DISPLAY 

DISPLAY 

BACKSUB 

BACKSUB 
ERRORS 



K ADD 1 TO THE SEGMENT IN R8 

tt SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 



* THIS BACKSPACE MILL BE USED ONLY AFTER AN 
ERROR 



H GO TO ERROR RETURN BECAUSE BACKSPACE WAS 
FATAL 
SEGOEC 1,Y 
It SUBTRACT 1 FROM R8,T0 SET-UP THE ENTRY TO THE NEXT SEGMENT 

SN R8,1 It SUBTRACT 1 FROM THE SEGMENT IN R8 

CALL DISPLAY tt SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

BSA DISPLAY 



B 



Y1READ2 



It BACKSPACE IS GOOD. 30 TO REREAD BLOCK Y+1 



011 "425 
0117425 



0117425 

0117425 10 000431 104602 

011742* 

0117426 10 000432 037020 117767 0117767 



0117430 

0117430 10 000434 137020 117776 0117776 
0117432 10 000436 155236 0117670 



-001- 



31 Y1BS2 

33 SEGMULT 60,67,74 

*4 tt THIS SECTION OF CODE MAKES-UP. SEGMENTS 60 67 AND 74 



36 


SEGINC 


2 


-001- 37 


AN 


R8,2 


-001- 38 


CALL 


DISPLAY 


-002- 39 


BSA 


DISPLAY 



-001- 



# ADD 2 TO THE SEGMENT IN R8 

H SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 



41 » BACK BLOCK TO SETUP EITHER THE TOP OF THIS LOOP OR 

42 tt THE START OF THE NEXT LOOP. 

43 CALL BACKSUB It THIS BACKSPACE WILL BE USED SET UP THE NEXT 

READ 

45 BSA BACKSUB 

46 BNC ERRORS It GO TO ERROR RETURN BECAUSE THE BACKSPACE 

WAS FATAL 
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JSL 



TDC DIAGNOSTIC PROGRAM. 

SUPPORTING SUBROUTINES 

0117*33 
i 

0117433 

0117433 10 000437 004601 

0117434 

0117434 10 000440 037020 117767 0117767 

0117436 

0117436 10 000442 103465 000016 



0117440 10 000444 054003 0117443 

0117441 10 000445 004461 

0117442 10 000446 053663 0117325 



9:34:51 2/07/81 **** 
CTAPH W77D 



01 SEGMULT 61,68,75 
-001- 02 » THIS SECTION OF CODE MAKES-UP SEGMENTS 61 68 AND 75 



04 
-001- 05 
-001- 06 
-002- 07 



SEGINC 
AN 
CALL 
BSA 



R8,1 

DISPLAY 

DISPLAY 



* ADD 1 TO THE SEGMENT IN R8 . 

n SHOW THE SEGMENT ON THE SSP'S L.E.D. 



0? CHCKFINI 

11 CI R3,LSTY1ENT * IS R3 INDEXING THE ENTERY FOR BLOCK Y+1, 

TRACK ADDR. 3 

1 3 g ***************************************************************** 

14 # THIS IS THE EXIT CHECK FOR THIS LOOP 

1 5 # ***************************************************************** 

16 BC RPARCK 

17 AN R3,1 * INCREMENT THE INDEX 

18 B CHCKSTAT # BRANCH BACK TO CONTINUE WITH THIS LOOP 



. 



. 
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TDC DIAGNOSTIC PROGRAM. 
SUPPORTING SUBROUTINES 
0117443 



9:34:51 2/07/81 **** 
CTAPM W77D 



01 RPARCK 



0117443 10 000447 151410 

0117444 10 000450 054224 

0117445 



0117670 



0117445 

0117445 10 000451 004601 

0117446 

0117446 10 000452 037020 117767 0117767 

0117450 10 000454 151105 

0117451 10 000455 054217 0117670 



0117452 



0117452 10 000456 003601 000120 

0117454 

0117454 10 000460 037020 117767 0117767 



03 * THIS STEP WILL CHECK THE STATUS TABLE TO SEE IF ANT DLOCK Y+1 

04 M WAS FLAGGED AS A HARD ERROR AT THE START. IF NONE OF THE FLAGS 

05 # FOR A HARD ERROR HERE SET IN THE STATUS TABLE AT THE START, THE 

06 n TEST IS READY TO POSITION THE TAPE BACK INSIDE THE NORMAL SYSTEM 

07 M DATA AREA. IF ANT OF THE BLOCKS WERE FLAGGED AS A HARD ERROR IN 

08 # THE STATUS TABLE GENERATION STEP, IT WILL HAVE TO BE REWRITTEN. 

09 # AFTER THIS BLOCK IS READABLE BLOCK Y ON THE SAME TRACK HAS TO BE 

10 » REWRITTEN. AFTER BLOCK Y IS REWRITTEN BLOCK Y+1 HAS TO BE REREAD 

11 It TO DETECT A SPEED ERROR. (A SPEED HAS OCCURRED IF BLOCK Y+1 IS NO 

12 K LONGER READABLE) 

14 U FIRST CHECK IF THIS BLOCK HAS BEEN FLAGGED AS AN UNREADABLE BLOCK 

15 K IT IT IS NOT IN NEED OF REWRITING CHECK THE OTHER BLOCKS' STATUS 

16 U FLAGS. IF IT HAS TO BE REWRITTEN BRANCH TO THE BEGINING OF THE 

17 U REWRITE PROCESS. 



21 * FIRST CHECK IF THE SPEED TEST IS NOT RUN 

22 TBS TABLT0P(RA1),S (FATAL) U WAS THE 2ND LAST BLOCK NO GOOD? 

23 BC ERRORS # IF YES THERE WAS AN ERROR 



H ADD 1 TO THE SEGMENT IN R8 

U SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

TP) * IS THE BIT SET? 

U THEN BRANCH TO ERRORS (THE TAPE IS TOO 
SHORT) 

36 SEGINT 80 

-001- 37 # **************************************************************** 

-001- 38 » INITIALIZE THE SEGMENT NUMBER TO 80 

-001- 39 H **************************************************************** 





25 




SEGPRNT 


76 


001- 


26 
27 


# THIS 


IS PART 
SEGINC 


OF SEGMENT 76 


001- 


28 




AN 


R8,1 


001- 


29 




CALL 


DISPLAY 


002- 


30 




BSA 


DISPLAY 




32 




TBS 


N(CATP)(RAO), 




33 




BC 


ERRORS 



0117456 10 000462 103072 



-001- 41 
-001- 42 
-002- 43 

45 



LI 

CALL 

BSA 

LN 



R8,80 

DISPLAY 

DISPLAY 

•R3,FSTY1ENT 



* LOAD SEGMENT NUMBER 80 INTO R8 

U SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 



X SET UP R3 WITH AN INDEX TO THE FIRST Y+1 
BLOCK 
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C02 



TDC DIAGNOSTIC PROGRAM. 

SUPPORTING SUBROUTINES 
011745* 
0117457 10 000463 142503 

0117460 10 000464 014104 

0117461 10 000465 055006 0117467 

0117462 

0117462 10 000466 103465 000016 



0117464 10 000470 054151 0117635 

0117465 10 000471 004462 

0117466 10 000472 053771 0117457 



9:34t51 2/07/81 **** 
CTAPM W77D 



U LOAD R4 WITH THE STATUS WORD POINTED TO BY 

R3 
# TEST IF R4 EQUALS (THIS BLOCK WAS 

READABLE IF R4=0) 
n IF IT IS NOT ZERO THERE WAS AN ERROR 



01 Y1CHCK 

03 LX R4,R3(RA1> 

05 TZ R4 

07 BNC REPAIR 

09 ENPTcST 

11 It THIS CHECK WILL SEE IF THE TEST IS FINISHED. 

13 CI R3,LSTY1ENT IS R3 INDEXING THE ENTERY FOR BLOCK Y+1, 

TRACK ADDR. 3 

15 nr ***************************************************************** 

16 # THIS IS THE EXIT CHECK FOR THIS LOOP 

1 7 K ***************************************************************** 

18 BC REPOSITI # IF IT IS, BRANCH TO REPOSITION THE TAPE 

19 AN R3.NXTY1ENT * POINT TO THE NEXT Y BLOCK IN THE TABLE. 

20 B Y1CHCK n BRANCH TO CHECK THE NEXT STATUS WORD 
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D02 


TDC DIAGNOSTIC PROGRAM. 






9:34:51 2/07/81 **** 


SUPPORTING SUBROUTINES 






CTAPM W77D 


0117467 


01 


REPAIR 


t 


03 
04 
05 
06 
07 
08 


t 

tt 
tt 
tt 

n 


FIRST STEP IN REWRITING THIS BLOCK IS TO READ THE BLOCK, THEN 
BACKSPACE THE TRANSPORT TO THE BEGININ6 OF THE BLOCK. THIS 
PROCEDURE SHOULD NEGATE ANY ERRORS IN THE TRANSPORT'S SPEED 
BEFORE THE BLOCK IS REWRITTEN. THIS CAUTION IS TAKEN BECAUSE 
IT IS PROBABLY AN EARLIER SPEED ERROR WHICH CAUSED THIS BLOCK 
TO BE UNREADABLE, WITH LITTLE GUARENTEE THAT THE ERROR IS FIXED. 




12 


It 


FIRST SET UP SOME POINTERS 


0117467 10 000473 140146 

0117470 10 000474 004541 


14 
15 




L R6,N(BLKADDR)(RA0) M GET THE BLOCK NUMBER FROM THE TABLE 
AN R6,1 It ADD 1 TO IT, SO IT EQUALS Y+1 




19 
20 
21 
22 
23 


It 
n 
tt 
tt 
it 


NOW CALCULATE WHICH TRACK SHOULD BE REPAIRED BY LOOKING AT 

THE INDEX IN R3 (R3 «= 10, 12, OR 14). R3 IS LOADED INTO R1 TO .--•'• - 

CALCULATE THE TRACK. FIRST 8 IS SUBTRACTED FROM R1 (R1 NOW - 2, 4, 

OR 6. THIS IS 2 TIMES THE TRACK). R1 IS DIVIDED BY 2 (R1 NOW ■ 

1, 2, OR 3) AND SHIFT IT INTO THE TRACK ADDRESS'S BIT POSITION. 


• 


25 
26 


tt 
tt 


NOTE : SPECIAL ATTENTION ***** IF THE TABLE INDEXING CHANGES 
IN ANY WAY, THIS ALGORITHM MUST ALSO BE CHANGED 


0117471 10 000475 006023 

0117472 10 000476 003420 177770 
0117474 10 000500 010421 — 

0117476 10 000502 003422 014000 


28 
29 
30 

32 

34 




LR R1,R3 U LOAD R1 WITH THE CURRENT INDEX 

SI R1,8 K R1 NOW <* 2, 4, OR 6. 

RRN R1,1 U DIVIDE THE CURRENT INDEX BY 2 (BY ROTATING 

RIGHT 1) 
RLN R1,S(TRK) « SHIFT THE CALCULATED TRACK INTO THE TRACK 

BIT 
NI R1,M(TRK) # MAKE SURE EVERYTHING BUT THE TRACK BITS * 




36 
37 


tt THEN THE CALCULATED TRACK ADDRESS (R1> AND THE CALCULATED BLOCK 
tt ADDRESS (R6) ARE LOGICALLY 'OR'ED TOGETHER 


0117500 10 0005C4 014541 


39 




OR R6,R1 H LOGICALLY 'OR' THE TRACK AND THE BLOCK 

NUMBER 




44 

45 

46 




SET VP R2 WITH A FLAG TO THE HARD ERROR CHECKER SO IT WILL 
EXPECT A FAILURE ON THE THIS FIRST REREAD OF BLOCK Y 

LN R2,4 # TELL THE CHECK AFTER THE READ THAT THIS 

SHOULD FAIL 
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E02 


TDC DIAGNOSTIC PROGRAM. 








9:34:51 2/07/81 **** 


SUPPORTING SUBROUTINES 








CTAPM W77D 


0117502 






01 


RPARRD 


0117502 




-001- 


03 
04 


SEGMULT 80,83 
* THIS SECTION OF CODE MAKES-UP SEGMENTS 80 AND 83 


0117502 10 000506 154047 

0117503 

0117503 10 000507 037020 120045 


0117551 
0120045 


-001- 


06 
07 

08 


BC RP2BKSP a THE REREAD WAS GOOD. 
CALL READSUB H REREAD BLOCK Y+1 
BSA READSUB 


0117505 10 000511 103445 000004 
0117507 10 000513 054004 


0117513 




10 
11 
12 


* FIRST CHECK IF R2 = 4. IF IT DOES THEN THIS WAS EXPECTED 

CI R2,4 n WAS IT FLAGGED FOR AN ERROR EXPECT 
BC RPWRIT it IF YES, GO TO THE BACKSPACE/WRITE 


' 






14 
15 


H CHECK R2 FOR A HARD ERROR INDICATION. IF IT IS NOT ■ BACKSPACE 
It AND TRT AGAIN. 


0117510 10 000514 036040 117542 
0117512 10 000516 053156 


0117542 
0117670 




17 
18 


BX R2,RPRDBKSP 

B ERRORS n IF R2 » 0, THERE IS A HARD READ ERROR 


0117513 






22 


RPWftIT 


0117513 10 000517 103042 






24 
25 


U THIS IS THE START OF THE WRITE FOR BLOCK Y+1 

LN R2,2 n SET UP R2 WITH A BX COUNTER FOR HARD ERROR 

INDICATION 


0117514 






28 


RPWRBKSP 


0117514 

0117514 10 000520 137020 117776 

0117516 10 000522 155152 


0117776 
0117670 


-001- 


30 
31 
32 


CALL BACKSUB # THIS BACKSPACE WILL SETUP THE WRITE OF Y+1 
BSA BACKSUB 

BNC ERRORS * GO TO ERROR RETURN BECAUSE BACKSPACE WAS 

FATAL 


0117517 

0117517 

0117520 

0117520 10 000524 037020 117767 


0117767 


-001- 

-001- 
-001- 
-002- 


37 
38 
3? 
40 
41 
42 


SEGPRNT 81 
n THIS IS PART OF SEGMENT 81 
SE6INC 

AN R8,1 n ADD 1 TO THE SEGMENT IN R6 
CALL DISPLAY # SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 
BSA DISPLAY 








44 


# THIS IS THE REPAIR WRITE OF Y+1 

■ . . 
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F02 


■ 


TOC DIAGNOSTIC PROGRAM. 




9:34:51 2/07/81 **** 






SUPPORTING SUBROUTINES 




CTAPM W77D 




1 


0117522 

0117522 10 000526 137020 120017 0120017 
0117524 10 000530 154012 0117536 


-001- 


01 CALL WRITESUB WRITE A BLOCK OF GENERATED DATA ONTO THE 

TAPE 

03 BSA WRITESUB 

04 BC RPRDBK # THE WRITE WAS GOOD 

06 THIS BRANCH IS TAKEN WHEN A FATAL ERROR IN THE WRITE ROUTINE HAS 

07 # BEEN DETECTED. THE BX COUNTER IN R2 IS USED TO DECIDE IF THE FATAL 

08 # WRITE WAS A SOFT OR HARD ERROR. IF R2=0 IT IS A HARD ERROR AND 

09 n THIS PART OF THIS TEST HAS FAILED. 




■ 


0117525 

0117525 10 000531 004217 

0117526 

0117526 10 000532 037020 117767 0117767 


-001- 
-001- 
-001- 
-002- 


11 SEGDEC 1,Y 

12 it SUBTRACT 1 FROM R8,T0 SET-UP THE ENTRY TO THE NEXT SEGMENT 

13 SN R8,1 U SUBTRACT 1 FROM THE SEGMENT IN R8 

14 CALL DISPLAY U SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

15 BSA DISPLAY 




■ 


0117530 10 000534 136040 117514 0117514 
0117532 

0117532 10 000536 004601 

0117533 

0117533 10 000537 037020 117767 0117767 


-001- 
-001- 
-001- 
-002- 


17 BX R2,RPWRBKSP # IS R2 ■ 0/' IF NO TRY AGAIN. 

18 SEGINC 1,Y 

19 H ADD 1 TO R8, TO SET-UP THE ENTRY TO THE NEXT SEGMENT 

20 AN R8,1 U ADD 1 TO THE SEGMENT IN R8 

21 CALL DISPLAY # SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

22 BSA DISPLAY 




■ 

„ ■ 


0117535 10 000541 153133 0117670 




24 B ERRORS # THIS BLOCK CAN NOT BE READ AFTER THE WRITE 




' 


0117536 




28 RPRDBK 






0117536 

0117536 

0117537 

0117537 10 000543 037020 117767 0117767 


-001- 

-001- 
-001- 
-002- 


30 SEGPRNT 82 

31 n THIS IS PART OF SEGMENT 82 

32 SEGINC 

33 AN R8,1 ADD 1 TO THE SEGMENT IN R8 

34 CALL DISPLAY # SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

35 BSA DISPLAY 

37 * THIS IS THE START OF THE LOOP WHICH READS THE BLOCK THAT 

38 $ WAS WRITTEN ON THE UNREADABLE BLOCK Y+1 . 






0117542 




40 LN R2,2 U SET UP THE BX COUNTER 
42 RPRDBKSP 






0117542 

0117542 10 000546 137020 117776 0117776 

0117544 10 000550 155124 0117670 


-001- 


44 CALL BACKSUB M THIS BACKSPACE WILL SETUP THE READ OF Y+1 

45 BSA BACKSUB 

46 BNC ERRORS K GO TO ERROR RETURN BECAUSE BACKSPACE WAS 

FATAL 
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602 

TOC DIAGNOSTIC PROGRAM. 

SUPPORTING SUBROUTINES 

0117545 01 SEGPRNT 83 

, -001- 02 # THIS IS PART OF SEGMENT 83 

01175*5 03 SEGINC 

0117545 10 000551 004601 -001- 04 AN R8,1 

0117546 -001- 05 CALL DISPLAY 
0117546 10 000552 037020 117767 0117767 -002- 06 BSA DISPLAY 



0117550 10 000554 153732 



0117502 



08 



B 



RPARRD 



9:34:51 2/07/81 **** 
CTAPM M77D 



(K ADD 1 TO THE SEGMENT IN R8 

SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

* BACKSPACE IS GOOD. GO TO READ BLOCK Y+1 
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A03 



TDC DIAGNOSTIC PROGRAM. 








9:34:51 2/07/81 **** 


SUPPORTING SUBROUTINES 








CTAPM W77D 


0117551 






01 


RP2BKSP 


0117551 




-001- 


03 
04 


SEGINT 83 






-001- 
-001- 


05 

06 


H INITIALIZE THE SEGMENT NUMBER TO 83 

H *A***Aftft*****A**ftftAft******ft***Aft*A*ft***lV*****ft***********AA***** 


0117551 10 000555 103601 000123 

0117553 

0117553 10 000557 037020 117767 


0117767 


-001- 
-001- 
-002- 


08 
09 
10 

12 
13 
14 

16 
17 

18 
19 

20 

24 


LI R8,83 H LOAD SEGMENT NUMBER 83 INTO R8 

CALL DISPLAY # SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

BSA DISPLAY 

II THIS SECTION WILL BACKSPACE THE TAPE 2 BLOCKS, REWRITE BLOCK Y 
U AND REREAD BLOCK Y+1 . IF BLOCK Y+1 CAN NOT BE READ THERE IS A 

# SPEED ERROR IN THE TRANSPORT. 

n IT IS NOT NECESSARY TO SET UP A BX COUNTER ON THE WRITE BECAUSE 
n 1) THE WRITE CIRCUITS HAVE PASS THE WRITE TESTS, AND THE TEST 

* WHICH WAS RUN ON THE BLOCK Y+1, AND 2) THE DATA WHICH IS BEING 
n WRITTEN IS EXPENDABLE (NEVER HAS TO BE READ ERROR FREE) 

H THEREFORE, THIS WRITE WILL FAIL WITH A SOFT (FATAL) ERROR. 

U FIRST SET UP A BX COUNTER FOR THE 2 BACKSPACES 


0117555 10 000561 103041 






26 


LN R2,1 U THIS WILL REPEAT 2 TIMES (IF NO ERRORS 

OCCUR) 


0117556 




-001- 


29 
30 


SEGMULT 84,85 
U THIS SECTION OF CODE MAKES-UP SEGMENTS 84 AND 85 


0117556 

0117556 10 000562 004601 

0117557 

0117557 10 000563 037020 117767 


0117767 


-001- 
-001- 
-002- 


32 
33 
34 
35 


SEGINC 

AN R8,1 n ADD 1 TO THE SEGMENT IN R8 

CALL DISPLAY H SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

BSA DISPLAY 


0117561 






37 


RP2BS 


0117561 

0117561 10 000565 137020 117776 0117776 

0117563 10 000567 155105 0117670 


-001- 


40 
41 
42 


CALL BACKSUB * BACKSPACE FOR Y+1 AND Y (ANY TRACK) 
BSA BACKSUB 

BNC ERRORS » GO TO ERROR MESSAGE RETURN BECAUSE 

BACKSPACE WAS FATAL 


0117564 10 000570 036040 117561 


0117561 




45 
46 


# CHECK THE BX COUNTER FOR 0. IF IT IS, THEN THE REWRITE IS READY 

BX R2,RP2BS # IF R2 NOT = 0, BACKSPACE AGAIN 
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B03 



TOC DIA6NOSTIC PROGRAM. 
SUPPORTING SUBROUTINES 
0117566 

0117566 ' 

0117566 10 000572 004601 

0117567 

0117567 10 000573 037020 117767 0117767 

0117571 10 000575 104157 

0117572 

0117572 10 000576 037020 120017 0120017 

0117574 10 000600 155074 0117670 

0117575 

0117575 

0117575 10 000601 004601 

0117576 

0117576 10 000602 037020 117767 0117767 



0117600 10 000604 103042 

0117601 10 000605 004541 

0117602 

0117602 

0117602 10 000606 137020 120045 0120045 
0117604 10 000610 154016 0117622 



-001- 

-001- 
-001- 
-002- 



01 
02 
03 
04 
05 
06 



SEGPRNT 86 
THIS IS PART OF SEGMENT 86 



SEGINC 
AN 
CALL 
BSA 



R8,1 

DISPLAY 

DISPLAY 



9:34:51 2/07/81 **** 
CTAPM W77D 



n ADD 1 TO THE SEGMENT IN R8 

# SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 



08 K IF R2 * 0, THEN THE TAPE IS POSITIONED TO REWRITE BLOCK Y 

09 it R6 IS POINTING AT THE Y+1 BLOCK OF DATA, AND NEEDS TO BE 

10 U DECREMENTED BY 1 TO POINT TO BLOCK Y, THEN GENDATA IS CALLED. 





12 




13 


001- 


15 




16 




1? 


001- 


20 




21 


001- 


22 


001- 


23 


002- 


24 



SN 
CALL 

BSA 

BNC 



R6,1 
WRITESUB 

WRITESUB 
ERRORS 



SEGPRNT 87 
THIS IS PART Of SEGMENT 87 
SEGINC 

AN R8,1 
CALL DISPLAY 
BSA DISPLAY 



§ SUBTRACT 1 FROM R6 

n WRITE A BLOCK OF GENERATED DATA ONTO THE 
TAPE 

* if THE WRITE WAS FATAL, AND WILL BOMB ON A 
SOFT ERROR 



U ADD 1 TO THE SEGMENT IN R8 

» SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 



-001- 



26 # CHECK IF THE BLOCK Y+1, WHICH WAS JUST WRITTEN AND READ FROM 

27 * THE TAPE CAN STILL BE READ FROM THE TAPE AFTER THE BLOCK Y WAS 

28 * WRITTEN. IF IT IS READABLE <N0 SPEED ERROR), CHECK IF THE TEST 

29 # IS OVER, IF IT IS NOT READABLE THEN THERE IS A SPEED ERROR. 

31 H SET VP SOME POINTERS. 1) IS A BX COUNTER TO DETECT HARD ERRORS 

32 It ON THE READ, AND 2) IS THE TRACK/BLOCK ID IN R6 

K SET UP THE BX COUNTER IN R2 
fl AJUST THE BLOCK NUMBER IN R6 



READ BLOCK Y+1 

# THE READ WAS GOOD, BACKSPACE THE TAPE 



w 


LN 
AN 


R2,2 
R6,1 


37 


RPREREAD 




39 
40 
41 


CALL 

BSA 

BC 


READSUB 
READSUB 
RPFINIBS 



43 » CHECK R2 FOR A HARD ERROR INDICATION. IF IT IS NOT 

44 H AND TRY AGAIN. IF IT IS, THERE IS A SPEED ERROR 



BACKSPACE 
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C03 



TDC DIAGNOSTIC PROGRAH. 
SUPPORTING SUBROUTINES 



0117605 10 000611 036040 117610 0117610 
0117607 10 000613 053061 0117670 



9:34:51 2/07/81 **** 
CTAPM W77D 
01 it IF R2 NOT E«UAL TO 0, USE SPECIAL BACKSPACE AND RETRY THE READ 



03 
04 



BX 
B 



R2,RPRRDBS 
ERRORS 



* IF R2 IS NOT ■ 0, RETRY THE READ 

* IF IT IS THE REREAD OF Y+1 IS FATAL (SPEED 
ERROR) 



0117610 
0117610 

0117610 

0117610 10 000614 104601 

0117611 

0117611 10 000615 037020 117767 0117767 

0117613 

0117613 10 000617 137020 117776 0117776 

0117615 10 000621 155053 0117670 

0117616 

0117616 10 000622 004217 

0117617 

0117617 10 000623 037020 117767 0117767 

0117621 10 000625 153761 0117602 



09 H BACKSPACE TO SET UP THE REREAD OF BLOCK Y+1, 
11 RPRRDBS 



13 SEGPRNT 88 
-001- 14 » THIS IS PART OF SEGMENT 88 



-001- 
-001- 
-002- 


15 

16 
17 
18 


SEGINC 
AN 
CALL 
BSA 


R8,1 

DISPLAY 

DISPLAY 




20 


CALL 


BACKSUB 


-001- 


22 
23 


bsa 

BNC 


BACKSUB 
ERRORS 



25 



SEGDEC 1,Y 



H ADD 1 TO THE SEGMENT IN R8 

n SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 



# THIS BACKSPACE WILL BE USED ONLY AFTER AN 
ERROR 

H GO TO ERROR RETURN BECAUSE BACKSPACE WAS 
FATAL 



-001- 26 K SUBTRACT 1 FROM R8,T0 SET-UP THE ENTRY TO THE NEXT SEGMENT 

-001- 27 SN R8,1 * SUBTRACT 1 FROM THE SEGMENT IN R8 

-001- 28 CALL DISPLAY M SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

-002- 29 BSA DISPLAY 



31 



B 



RPREREAD 



* BACKSPACE IS GOOD. GO TO REREAD BLOCK Y+1 



0117622 
0117622 

0117622 

0117622 10 000626 104602 

0117623 

0117623 10 000627 037020 117767 0117767 



35 RPFINIBS 



-001- 



37 
38 
39 

-001- 40 

-001- 

-002- 



41 
42 



SEGPRNT 89 
THIS IS PART OF SEGMENT 89 
SEGINC 2 
AN R8,2 
CALL DISPLAY 
BSA DISPLAY 



n ADD 2 TO THE SEGMENT IN R8 

n SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 



44 » THIS BACKSPACE IS TO PUT THE TRANSPORT BACK TO WHERE IT SHOULD 

45 # BE, BETWEEN THE BLOCKS Y AND Y+1 . 
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003 



TDC DIAGNOSTIC PROGRAM. 




9:34:51 2/07/81 **** 


SUPPORTING SUBROUTINES 




CTAPM W77D 


0117625 

0117625 10 000631 137020 117776 0117776 
0117627 10 000633 155041 0117670 


01 

-001- 03 
04 

06 


CALL BACKSUB K THIS POSITIONS THE TAPE BETWEEN BLOCKS Y 

AND Y+1 
BSA BACKSUB 
BNC ERRORS H GO TO ERROR RETURN BECAUSE BACKSPACE MAS 

FATAL 
U ***************************************************************** 


* 


07 
08 


* THIS IS THE EXIT FROM THIS LOOP 

# ***************************************************************** 


0117630 


09 
-001- 10 


SEGINT 80 
tt **************************************************************** 


• 


-001- 11 
-001- 12 


It INITIALIZE THE SEGMENT NUMBER TO 80 

U **************************************************************** 


0117630 10 000634 003601 000120 

0117632 

0117632 10 000636 037020 117767 0117767 


-001- 14 
-001- 15 
-002- 16 


LI R8,80 K LOAD SEGMENT NUMBER 80 INTO R8 

CALL DISPLAY K SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 

BSA DISPLAY 


0117634 10 000640 153626 0117462 


18 


B ENDTEST THE BACKSPACE WAS GOOD, CHECK IF THE TEST 

IS OVER 

■ 






' 


, 




•• ■ 






• 
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E03 



TDC DIAGNOSTIC 


PROGRAM. 












9:34:51 2/07/81 **** 


SUPPORTING SUBROUTINES 












CTAPM W77D 


0117635 


f 








01 


REPOSITI 






0117635 










03 


SEGINT 


95 












-001- 


04 


flf **************************************************************** 










-001- 


05 


H INITIALIZE THE SEGMENT NUMBER TO 


95 










-001- 


06 


K **************************************************************** 


0117635 


10 000641 


103601 000137 




-001- 


on 


LI 


R8,95 


# LOAD SEGMENT NUMBER 95 INTO RS 


0117637 








-001- 


09 


CALL 


DISPLAY 


U SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 


0117637 


10 000643 


037020 117767 


0117767 


-002- 


10 


BSA 


DISPLAY 














12 


U REPOSITION THE TAPE TO BLKMAX 




0117641 


10 000645 


103421 000527 


MASACS 




14 

16 

17 


LI 

DINSERT NOTE 
DDELETE NOTE 


R1, BLKMAX 

' POSITION DIAGT 
4 


U SET-UP R1 FOR THE POSITION 
n POSITION THE TO BLKMAX 


W01 17643 


10 000647 


037020 126350 


CTAPH 




18 


BSA 


REQR 




0117645 


10 000651 


175100 






19 


DATA 


0(175100) 


. .-''' - 


0117646 










20 

22 
23 

24 


REPOS 

DINSERT NOTE 
DINSERT NOTE 
DDELETE NOTE 


* CALL WAIT 
' CALL REQR 
6 


H SUBROUTINE REQR IS IN PROGRAM CTAPH 


W01 17646 


10 000652 


137020 002422 


CBLM 




25 


BSA 


WAIT 




W01 17650 


10 000654 


137020 126350 


CTAPH 




26 


BSA 


REQR 




0117652 


10 000656 


176300 






27 


DATA 


0(176300) 




0117653 


10 000657 


156000 






28 


BPAX 


RO 




9117654 


10 000660 


153003 


0117657 




29 


B 


LASTCALL 


* WHEN THE POSITION HAS COMPLETED GO TO 
END! THE TEST 


0117655 


10 000661 


153013 


0117670 




31 


B 


ERRORS 


II THE POSITION HAD AN ERROR 


0117656 


10 000662 


153770 


0117646 




32 


B 


REPOS 


* THE POSITON IS NOT FINISHED 


0117657 










34 


LASTCALL 






0117657 








-001- 


36 
37 


SEGPRNT 
n THIS IS PART 


96 

OF SEGMENT 96 




0117657 










38 


SEGINC 






0117657 


10 000663 


104601 




-001- 


39 


AN 


R8,1 


* ADD 1 TO THE SEGMENT IN R8 


0117660 








-001- 


40 


CALL 


DISPLAY 


II SHOW THE SEGMENT ON THE SSP'S L.E.D.'S 


0117660 


10 000664 


037020 117767 


0117767 


-002- 


41 


BSA 


DISPLAY 














43 


H CALL THE SUBROUTINE TO RESET THE 


SPECIAL SET-UPS 


0117662 










44 


CALL 


SYSCLOSE 




0117662 


10 000666 


137020 117754 


0117754 


-001- 


45 


BSA 


SYSCLOSE 




0117664 


10 000670 


155004 


0117670 




46 


BNC 


ERRORS 


It IF THE 'CF' SET THERE WAS AN ERROR IN THE 
RAP-UP 












48 


# ***************************************************************** 












49 


H THIS IS THE 


EXIT FROM THIS TEST 
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SUPPORTING SUBROUTINES CTAPM W77D 

01 # ***************************************************************** 

03 * THE TEST HAS PASTED ALU THE TESTS (APT) SO GET RESTORE THE 

04 * REGISTERS FROM THE STACK AND EXIT THIS TEST 

0117665 10 000671 071400 05 GA * 'GET-ALL' THE REGISTERS 

0117666 10 000672 037000 130570 0130570 06 BL CONTRTN # IF THERE HAS NO ERROR THIS TEST IS DONE 
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603 



TDC DIAGNOSTIC PROGRAM. 
SUPPORTING SUBROUTINES 
0117670 



0117670 10 000674 103041 

0117671 

0117671 10 000675 103641 006415 
0117673 

0117673 10 000677 037020 111050 CSYSUB 

0117675 

0117675 10 000701 137020 132232 0132232 

0117677 10 000703 136040 117671 0117671 



9:34 :51 2/07/81 **** 
CTAPM W77D 



01 ERRORS 



03 K THE FIRST THING WHICH IS DONE IS TO BACKSPACE THE TAPE TWO BLOCKS. 

04 * THIS IS A PRECAUTION USED TO AVOID ANY ACCIDENTAL ABANDONNING OF 

05 K THE TAPE WHILE IT IS OVER ANY UNREADABLE BLOCKS OF DATA. 

06 # (BLOCKS WHICH MAY HAVE BEEN DISTROYED BY TEST 6) 



08 LN 

09 BKSPL0P2 

10 LI 

11 CALL 
-001- 12 BSA 

13 CALL 

-001- 14 BSA 

15 BX 



R2,1 

R10,TBS 

SENDMIO 

SENDMIO 

WAIT3S 

WAIT3S 

R2,BKSPL0P2 



U SET UP R2 TO BE USED AS A BX COUNTER 

# LOAD R10 WITH A BACKSPACE (TRACK ADDR. 0). 

» WAIT 1 SECOND BEFORE CONTINUING 
n MUST DO 2 BACKSPACES 



0117701 10 000705 062105 

0117702 10 000706 072567 

0117703 10 000707 010614 

0117704 10 000710 072610 

0117705 10 000711 071400 

0117706 

0117706 10 000712 037020 117754 0117754 -001- 36 
0117710 10 000714 137000 132000 0132000 



19 U BEFORE GOING TO PROCESS THE ERROR, CLEAN UP THE LOSE ENDS. 

21 ZBS N(CATP)(RAO),S(CATP> # ZERO THE CATP BIT (JUST A PRECAUTION) 

23 % STACK R7 (THE CURRENT TEST) AND R8 (THE CURRENT SEGGMENT)INTO 

24 K THE HOLD-GET AREA SO THE MONITOR KNOWS WHAT FAILED 

# STACK R7 IN THE HOLD/GET AREA FOR RETURN TO 
THE MONITOR 

n THIS WILL PUT R8 IN THE EXPECTED POSITION 
FOR ERRMSGPO 

* STACK R8 IN THE HOLD/GET AREA FOR RETURN TO 
THE MONITOR 

» RESTORE THE REGISTERS FOR THE MONITOR FROM 
THE HOLD/GET AREA 



26 


HN 


R7,7 


28 


RLN 


R8,4 


30 


HN 


R8,8 


32 


GA 




35 

36 
37 


CALL 

BSA 

BL 


SYSCLOSE 
SYSCLOSE 
ERRMSGPO 



38 n SPLITSOURCEHERE 



H BRANCH TO THE REGULAR ERROR LEG 
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A04 


TOC DIAGNOSTIC PROGRAM. 










9:34:51 2/07/81 **** 


SUPPORTING SUBROUTINES 










CTAPM W77D 


0117712 






01 


SYSTSET 








03 


§ 


THIS SUBROUTINE IS A SYSTEM DEPENDENT ROUTINE USED TO SET-UP ANY 








04 


It 


NECESSARY INFORMATION TO THE SYSTEM THIS DIAGNOSTIC IS USED IN. 








06 


ft 


THE CTAPH SET-UP INCLUDES SETTING UP AN INTERFACE FROM 








07 


§ 


THE DIAGNOSTIC TO THE TAPE HANDLER 








11 


It 


**************************** ************************************* 


0117712 






12 












13 


It 


THE SPECIAL REGSISTER USE IS AS FOLLOWS 








14 


It 


RO DEVICE ADDRESS OF THE TAPE IN QUESTION 








15 


It 


R1 SCRATCH OR THE BLOCK NUMMBER FOR THE SIEZE 








16 


It 


R2-R11 NEVER USED 








17 


H 


RAO NEVER USED 








18 


It 


RA1 ADDRESS OF THE TAPE CONTROLL BLOCK AND THE TAPE UNIT 








19 


It 


STATUS WORDS (TCBADR OR TUSTAT) 


0117712 






20 












21 


H 


***************************************************************** 


0117712 






22 












23 


It 


WHEN THIS SUBROUTINE IS EXITED, THE RETURN PROCESS USED WILL 








24 


It 


INVOLVE A RETURN CODE IN RO AND A SET OR CLEAR OF THE 'CF' 


0117712 






25 












26 


f 


WHEN THE RETURN CODE EQUALS 0, THE 'CF' EQUALS 1 (SET) 








27 


It 


WHEN THE RETURN CODE EQUALS ANYTHING ELSE OTHER THEN THE CF 








28 


H 


EQUALS (CLEARED) 


0117712 






29 












30 


It 


***************************************************************** 








34 


§ 


SET-UP THE DIAGNOSTIC'S INTERFACE TO CTAPH. 


0117712 






36 




BEGIN » START BY SAVING THE REGISITERS 


0117712 10 000716 171420 




-002- 


37 




HA 


0117713 10 000717 030400 043102 


CTSD 




39 




LL RO,N(TPNO)+PAGSCR # SET-UP THE SEIZE WITH THE DEVICE NUM8ER IN 

RO 
LI R1,BLKMAX * R1 IS THE BLOCK THE TRANSPORT IS OVER AFTER 


0117715 10 000721 003421 000527 


MASACS 




41 














THE SEIZE 








43 




SEIZE DIAGT * GET CONTROL OF THE TAPE HANDLER (CTAPH) 


0117717 10 000723 037020 126205 


CTAPH 


-002- 


44 




BSA OPENTCB 


0117721 10 000725 174030 




-001- 


45 




VFD • 5, DIAGT 1,0 1,0 2,0 3,1 1,1 
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B04 




TDC DIAGNOSTIC 


PROGRAM. 








9:34:51 2/07/81 **** 


SUPPORTING SUBROUTINES 








CTAPM 


W77D 


0117722 








01 

02 
03 

04 


SETTST 

DINSERT NOTE 
DINSERT NOTE 
DDELETE NOTE 


' CALL WAIT 

* STATST DIAGT * GET THE STATUS OF THE TAPE (CTAPH) 

6 




W01 17722 


10 000726 


137020 002422 


CBLM 


05 


BSA 


WAIT 




W01 17724 


10 000730 


137020 126350 


CTAPH 


06 


BSA 


REQR 




0117726 


10 000732 


176300 




07 


DATA 


0(176300) 




0117727 


10 000733 


156000 




08 


BPAX 


RO 




0117730 


10 000734 


153003 


0117733 


09 


B 


TCBFIXUP 11 IF THERE HAS NO ERROR (THE CF * 1) 


CONTINUE 


0117731 








10 


RE'URN 


1 




0117731 


10 000735 


1J6441 




-001- 11 


BTSAGN 


1 




0117732 


10 000736 


153770 


0117722 


12 


B 


SETTST # THE SEIZE WAS NOT FINISHED 




0117733 








16 


TCBFIXUP 






0117733 


10 000737 


131420 043317 


CTSD 


18 


LAL 


R1,TCBADR,RA1 H SET-UP RA1 WITH THE ADDRESS OF THE 


TBC 


0117735 


10 000741 


061745 




19 


SBS 


N(ERNA)(RA1),S(ERNA) M INHIBIT ERROR RECOVERY BY CTAPH 




0117736 


10 000742 


062767 




?0 


ZBS 


N(DIAGBITS)(RA1),S(DIAGBITS)+1 




0117737 


10 000743 


062747 




21 


ZBS 


N(DIAGBITS) (RA1 ),S (DIAGBITS) 




0117740 


10 000744 


003421 003777 




22 


LI 


R1,M(LASTBLK) #SET UP AN 'ALL 1'S' BLOCK NUMBER 




0117742 


10 000746 


002427 003777 




23 


STM 


R1,N(LASTBLK)(RA1),M(LASTBLK) # STORE THE BLK NUMBER IN - 


ME TCB 


0117744 


10 000750 


040470 




25 


L 


R3,N(TAPN0)(RA1) # GET THE TAPE NUMBER FROM THE KB 




0117745 


10 000751 


003462 000003 




26 


NI 


R3,M(TAPN0) n MASK OFF THE TAPE NUMBER 




0117747 


10 000753 


031400 043337 


CTSD 


27 


LAL 


R0,TUSTAT,RA1 # GET THE SYSTEM'S STATUS TABLE INTO 
R0,R3(RA1) It UPDATE THE ADDRESS TO POINT TO THE 


RA1 


0117751 


10 000755 


043403 




28 


LAX 


TAPE'S 














STATUS 




0117752 


10 000756 


062720 




30 


ZBS 


N(P0SOK)(RA1),S(POSOK) # ZERO THE POSITOIN OK BIT 




0117753 








32 


RETURN 







0117753 


10 000757 


056440 




-001- 33 


BTSAGN 







0117754 








39 
41 


SYSCLOSE 

K THIS ROUTINE 


US A SYSTEM DEPENDENT ROUTINE USED TO "UNDO" 












42 


df ANY INITIALIZATION THE "SYSTSET" ROUTINE DID 












44 


* IN THE CTAPH 


SYSTEM THE "UNDO"ING WHICH IS DONE IS TO CLOSE THE 












45 


* TAPE HANDELER. 
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TDC DIAGNOSTIC PROGRAM. 
SUPPORTING SUBROUTINES 



0117754 

0117754 10 000760 171420 



9:34:51 2/07/81 **** 
CTAPM H770 



01 * THIS IS A DIAGNOSTIC CLOSE ROUTINE. IT IS EXECUTED WHEN 

02 n THE DIAGNOSTIC HAS DECIDED TO CLOSE THE TAPE HANDLER EITHER 

03 # BECAUSE OF A FAILURE WHICH IS CAUSING THE DIAGNOSTIC TO CLOSE 

04 * OR AS THE END OF THE DIAGNOTIC IF THE TEST RAN ATP 



0117755 10 000761 003401 000017 
0117757 10 000763 031420 043317 CTSD 



W0117761 10 000765 037020 110734 CSYSUB 
0117763 10 000767 103401 000007 
0117765 10 000771 044400 



0117766 
0117766 



10 000772 056440 





06 


BEGIN 




002- 


07 


HA 






0? 


LI 


R0,15 




10 


LAL 


R1,TCBADR,RA1 




12 


DINSERT NOTE 


' CALL CLR WRDS 




13 


DDELETE NOTE 


2 




14 


BSA 


CLR WRDS 




15 


LI 


R0,IDLE 




16 


ST 


R0,N(RE«)(RA1> 




17 


RETURN 





001- 


18 


BTSAGN 






U SET UP RO FOR CLEAR WORDS 

n SET VP RA1 WITH THE ADDRESS OF THE KB FO 

CLEAR WORDS 
tf ZERO THE TCB 



# PREPARE TO SET VP THE IDLE STATE IN THE TCB 
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DO* 



TDC DIAGNOSTIC PROGRAM. 
SUPPORTING SUBROUTINES 
0117767 



0117767 
0117767 



0117767 



0117767 

0117767 10 000773 171420 

0117770 10 000774 010614 

0117771 10 000775 016170 003760 
0117773 10 000777 034560 043463 CTSD 
0117775 

0117775 10 001001 056420 



9:34:51 2/07/81 **** 
CTAPM M77D 



01 DISPLAY 



03 K THIS IS A SYSTEM ROUTINE TO DISPLAY THE SEGMENT NUMBER ON THE 

04 n SYSTEM STATUS PANEL. 



0.', 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 

18 
-002- 19 

21 
22 
23 

24 
-001- 25 



ft ***************************************************************** 

H THE REGISTER USE IN THIS SUBROUTINE IS AS FOLLOWS 

df R0-R6 UNUSED 

R7 THE CURRENT TEST NUMBER 

H R8 THE CURRENT SEGMENT NUMBER 

K R9-R11 UNUSED 

* RA0-RA1 UNUSED 

***************************************************************** 

BEGIN 
HA 



RLN R8,4 

IRM R7,R8, 0(3760) 

STL R7,MSFPR0G 

RETURN 

BTSAG 



U DISPLAY SEGMENT IN BITS 4-7. 
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E04 



TDC DIAGNOSTIC PROGRAM. 
SUPPORTING SUBROUTINES 
0117776 

0117776 
0117776 



0117776 
0117776 



9:34:51 2/07/81 **** 
CTAPM W770 



0117776 
0117776 

0117776 



0117776 

0117776 10 001002 171420 



0117777 10 001003 031400 043317 CTSD 
0120001 10 001005 002546 014000 



W0120003 10 001007 037020 126350 CTAPH 
0120005 10 001011 176100 



0120006 



W0120006 10 001012 137020 002422 CBLM 
W0120010 10 001014 137020 126350 CTAPH 



01 BACKSUB 

02 H THIS SUBROUTINE IS CALLED TO BACKSPACE THE TAPE VIA THE HANDLER 



04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 



# **************************************************************** 

# IN THIS SUBROUTINE THE REGISTERS ARE USED THIS HAY 

U RO SCRATCH AND THE RETURN CODE TO THE MAINLINE (OUTPUT) 

U R1-R5 UNUSED (UNCHANGED) 

It R6 THE TRACK/BLOCK ID (INPUT) 

# R7-R11 UNUSED (UNCHANGED) 
» RAO UNUSED (UNCHANGED) 

# RA1 SET-UP WITH THE ADDRESS OF THE TCB 

tf ***************************************************************** 

# THIS SUBROUTINE CONTAINS A COMMON STATUS CHECKING LEG WHICH 

# IS NECESSARY TO POLL THE TAPE HANDLER TO CHECK WHEN THE BASE 

# LEVEL LOOP HAS COMPLETED THE CURRENT REQUEST TO CTAPH. THIS 

» ROUTINE AS WELL AS THE READ AND WRITE SUBROUTINES USE THE LOOP 

# STARTING WITH THE LABLE "STATEST" TO CHECK THE STATUS OF THE 

# CURRENT CALL TO "REQR" 

K WHEN THIS SUBROUTINE IS EXITED, THE RETURN PROCESS USED WILL 
U INVOLVE A RETURN CODE IN RO AND A SET OR CLEAR OF THE 'CF' 

K WHEN THE RETURN CODE EQUALS 0, THE 'CF' EQUALS 1 (SET) 

H WHEN THE RETURN CODE EQUALS ANYTHING ELSE OTHER THEN THE CF 

EQUALS (CLEARED) 

U ***************************************************************** 



33 
-002- 34 



BEGIN 
HA 



36 LAL 

37 STM 

38 DINSERT NOTE 

39 DDELETE NOTE 

40 BSA 

41 DATA 

43 STATEST 

45 DINSERT NOTE 

46 DINSERT NOTE 

47 DDELETE NOTE 

48 BSA 

49 BSA 



» START BY SAVING THE REGISTERS 



R0,TCBADR,RA1 # SET-UP THE TCBADR WITH THE TCB ADDRESS 

R6,N(TRACK>(RA1),M(TRACK) # STORE THE TRACK FROM R6 TO THE TCB 

• BACKSP DIAGT # BACKSPACE 

4 

REQR 

0(176100) 



• CALL WAIT 

• STATST DIAGT 
6 

WAIT 
REQR 



n CHECK THE TAPE HANDLER FOR STATUS 
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£04 

TDC DIAGNOSTIC PROGRAM. 
SUPPORTING SUBROUTINES 

0120012 10 001016 176300 01 DATA 0(176300) 

0120013 10 001017 156000 02 BPAX RO 

0120014 04 DIAGINT 

0120014 06 RETURN 

0120014 10 001020 156440 -001- 07 BTSAGN 

0120015 08 RETURN 1 

0120015 10 001021 156441 -001- 09 BTSAGN 1 

0120016 10 001022 153770 0120006 10 B STATEST 



9:34:51 2/07/81 **** 
CTAPM W77D 



COMMON TAPE MAINTENANCE 

9:34:51 2/07/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET 



CTAPM 



PR-1C958-50 
ISSUE 06 PAGE 



149 






TDC DIAGNOSTIC PROGRAM. 










9:34:51 2/07/81 **** 


SUPPORTING SUBROUTINES 










CTAPM W77D 


0120017 








01 


WRITESUB 










03 


• 


THIS SUBROUTINE IS CALLED TO WRITE TO THE TAPE VIA THE HANDLER 










05 


# 


**************************************************************** 


3120017 
0120017 

0120017 








06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 


* 

n 
n 
n 
n 

H 

n 


IN THIS SUBROUTINE THE REGISTERS ARE USED THIS WAY 

RO SCRATCH AND A RETURN CODE VIA A BACKSUB STATUS LEG 

R1-R5 UNUSED (UNCHANGED) 

R6 THE TRACK/BLOCK ID (INPUT) 

R7-R11 UNUSED (UNCHANGED) 

RAO UNUSED (UNCHANGED) 

RA1 SET-UP WITH THE ADDRESS OF THE TCB 

***************************************************************** 


0120017 
0120017 








17 
18 
19 
20 
21 
22 


if 
n 
it 

1 


THIS SUBROUTINE IS DESIGNED TO MAKE A REQUEST TO THE TAPE HANDLER 
TO PERFORM A "WRITE ABSOLUTE" AND THEN BRANCH TO THE STATUS 
CHECKING LEG OF THE BACKSPACE ROUTINE (BACKSUB). 

***************************************************************** 


0120017 

0120017 10 001023 171420 




-002- 


24 
25 




BEGIN # START BY SAVING THE REGISTERS 
HA 


0120020 10 001024 031400 043317 
0120022 10 001026 0025*6 014000 


CTSD 




27 
28 




LAL R0,TCBADR,RA1 » SET-UP THE TCBADR WITH THE TCB ADDRESS 
STM R6,N(TRACK)(RA1>,M(TRACK) # STORE THE TRACK FROM R6 TO THE TCB 


0120024 
0120024 10 

W0120026 10 

0120030 10 

0120031 10 


001030 037020 120032 

001032 137020 126350 

001034 174740 

001035 153755 


0120032 

CTAPH 
0120006 


-001- 


30 

32 
33 

34 
35 
36 
37 


CALL GENDATA U CALL THE ROUTINE TO GENERATE THE UNIQUE 

DATA BLOCK 
RSA GENDATA 
DINSERT NOTE ' WRTAB DIAGT # WRITE 
DDELETE NOTE 4 

BSA REQR 
DATA 0(174740) 

B STATEST * BRANCH TO THE STATUS CHECKING ROUTINE IN 

BACKSUB 


0120032 








42 
43 
44 
45 
46 
47 


GENDATA 

THIS IS A SUBROUTINE USED BT THE WRITE SUBROUTINE TO CREATE 

# A UNIQUE BLOCK OP DATA IN THE I BUFFER. 

THIS IS DONE BY ENTERING THE TRACK/BLOCK ID (ALWAYS THE FIRST 

# WORD OF ANY BLOCK ON TAPE) FOLLOWED BY THE NINE WORDS MAKING-UP 

# THE SYSTEM CLOCK. 
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A05 



TDC DIAGNOSTIC PROGRAM. 
SUPPORTING SUBROUTINES 

0120032, 
0120032 



0120032 



0120032 

0120032 10 001036 171420 

0120033 10 001037 131440 045265 LAYOUT 
0120035 10 001041 031040 043451 CTSD 
0120037 10 001043 003051 

0120040 

0120040 10 001044 145541 

0120041 10 001045 041141 

0120042 10 001046 036040 120040 0120040 
0120044 

0120044 10 001050 056420 



01 
02 
03 

04 
05 
06 
07 
08 
OV 
10 
1) 
12 
13 

15 

-002- 16 

17 

18 
19 



9:34:51 2/07/81 **** 
CTAPM W770 



K **************************************************************** 

It THE REGISTERS ARE 

# R0-R1 UNUSED 

» R2 SCRATCH AND A BX COUNTER 

U R3-R5 UNUSED 

# R6 DATA (TRACK/BLOCK ID AND CLOCK)TO THE BUFFER 
H R7-R11 UNUSED 

II RAO ADDRESS OF YEARS <\JP DATED WITH EACH DATA TRANSFER) 

U RA1 ADDRESS OF I_OBUF (UP DATED WITH EACH DATA TRANSFER) 

# **************************************************************** 



BEGIN 

HA 

LAL 

LAI 

LN 



-001- 



21 GENLOOP 

23 
24 

25 
26 
27 



STA 

LA 

BX 

RETURN 

BTSAG 



R2,I 0BUF-1,RA1 

R2,YEARS-1,RA0 

R2,9 



R6,1(RA1) 
R6,1(RA0) 
R2, GENLOOP 



U START BY SAVING THE REGISTERS 

# SET-UP THE ADJUSTED BASE ADDRESS OF I.OBUF 

# SET-UP THE ADJUSTED BASE ADDRESS OF YEARS 

# LOAD R2 WITH THE BX COUNTER 



U STORE R6 (WITH THE DATA) IN THE I_0 BUFFER 

» GET THE NEXT WORD FROM THE CLOCK 

n IT R2 HOT * 0, CONTINUE THE LOOPPING 
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TOC DIAGNOSTIC PROGRAM. 
SUPPORTING SUBROUTINES 
0120045 



0120045 
0120045 



0120045 
0120045 

0120045 



0120045 

0120045 10 001051 171420 



0120046 10 001052 031400 04331V CTSD 
0120050 10 001054 002546 014000 



W0120052 10 001056 037020 126350 CTAPH 

0120054 10 001060 174400 120014 0120014 

0120056 10 001062 153730 0120006 

0120056 



-001- 
-001- 



9:34:51 2/07/81 **** 
CTAPM W77D 



01 READSUB 

03 n THIS SUBROUTINE IS CALLED TO READ A BLOCK VIA THE HANDLER 



05 
06 
07 
08 
0? 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 

24 

-002- 25 

27 
26 
29 
30 
31 
32 
33 



tt **************************************************************** 
n IN THIS SUBROUTINE THE REGISTERS ARE USED THIS MAY 

H RO SCRATCH AND A RETURN CODE VIA A BACKSUB STATUS LEG 

# R1-R5 UNUSED (UNCHANGED) 

# R6 THE TRACK/BLOCK ID (INPUT) 
U R7-R11 UNUSED (UNCHANGED) 

# RAO UNUSED (UNCHANGED) 

H RA1 SET-UP WITH THE ADDRESS OF THE TCB 

If ***************************************************************** 

It THIS SUBROUTINE IS DESIGNED TO MAKE A REQUEST TO THE TAPE HANDLER 
U TO PERFORM A "READ 1 BLOCK" AND THEN BRANCH TO THE STATUS 

# CHECKING LEG OF THE BACKSPACE ROUTINE (BACKSUB). 

tt ***************************************************************** 



35 
36 
37 



BEGIN 
HA 

LAL 
STM 
DINSERT NOTE 
DDELETE NOTE 
BSA 
ADDR 
B 

ENDP 
NOTE 
NOTE 



U START BY SAVING THE REGISTERS 



R0,TCBADR,RA1 K SET-UP THE TCBADR WITH THE TCB ADDRESS 

R6,N(TRACK)(RA1),M(TRACK) (f STORE THE TRACK FROM R6 TO THE TCB 

' RD1BLK DIAGT,DIAGINT # READ 1 BLOCK FROM THE TAPE 

4 

REQR 

DIAGINT,DIAGT*E(7)+RD1BLK*E(3) 

STATEST H BRANCH TO THE STATUS CHECKING ROUTINE IN 

BACKSUB 
NR n 13668 

************ LAST PATCH ADDRESS 
***** NUMBER OF PATCH WORDS USED 



USED IS 001062 *************** 
IS 563 (DECIMAL) ******** 



K 12339 



40 CPATCH3 BGNP 0(162) 
-001- 41 NOTE CPATCH3 'CSECT' 
-001- 42 NOTE ***************** PATCH AREA BEGINS AT 000162 **************** 



0115255 

0115255 06 000162 103542 003777 

0115257 06 000164 044146 

0115260 06 000165 037000 117016 0117016 
0115260 



45 PATCH2 

46 NI 

47 ST 

48 BL 

49 ENDP 



R6,M(BLKADDR) 

R6,N(BLKADDR)(RA0) 

RETURN2 

NR * 12339 
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TDC DIAGNOSTIC PROGRAM. 
SUPPORTING SUBROUTINES 



9:34:51 



2/07/81 **** 
W77D 



-001- 01 
-001- 02 



CTAPM 

NOTE ************ LAST PATCH ADDRESS USED IS 000166 *************** 
NOTE ***** NUMBER OF PATCH WORDS USED IS 5 (DECIMAL) ******** 



COMMON TAPE MAINTENANCE 

9:34:51 2/07/81 TRADE SECRET 



SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPM 



PR-1C958-50 
ISSUE 06 PAGE 



153 



TDC DIAGNOSTIC PROGRAM. 
SUPPORTING SUBROUTINES 



D05 



01 IN IOD CHL=MTC 

02 DGN:TAPE #A#,TST #B;C 

03 T"I2" 

04 XRUN TAPE DIAGNOSTICS. X 

05 T"INPUT FIELDS" 

06 a/2/STHE TAPE DATA CONTROLLER TO BE TESTED. 

07 b/2/STHE TEST TO BE RUN. $IF NOT SPECIFIED, 

08 RUN ALL TESTS. SSTOP AT FIRST FAILURE. 

09 SRANGE IS FROM 1 TO 6. 

10 e/2/$ACTI0N OPTIONS. 

11 #UCL# SRUN ALL TESTS AND PRINT ALL FAILURES. 

12 HRPTH SRUN UNDER REPEAT MODE. 

13 #STP# SRUN UNDER STEP MODE. 

14 T"I3" 

15 #NG/C/2/$ERR0R IN INPUT SYNTAX. 

16 #RL#/2/SINPUT LATER, TAPE BUSY OR 

17 CONFLICTING FUNCTION INPROGRESS. 

18 #IP#/2/SMESSAGE ACCEPTED. 

19 T"I4" 

20 0PR-1C958 CTAPM* STAPE DIAGNOSTICS. 

21 .IODEND 



25 IN IOD CHL=MTC 

26 ABT:DGN TAPE! 

27 T"I2" 

28 XABORT TAPE DIAGNOSTICS. X 

29 T"INPUT FIELDS" 

30 SNONE 

31 T"I3" 

32 #NG#/2/*TAPE DIAGNOSTICS NOT IN PROGRESS 

33 *IP#/2/$MESSAGE ACCEPTED 

34 T"I4" 

35 #PR-1C958 CTAPM/K $TAPE DIAGNOSTICS. 

36 *PR-1C910 CDGNM* $DI AGNOSTIC MONITOR 

37 .IODEND 



9:34:51 2/07/81 **** 
CTAPM W77D 



OUT IOD ALM=0 PRI=0 CHL=MTC 
DGN TAPE 0AA BB CC DD EE FF 

43 T"02" 

44 XRESPONSE ASSOCIATED WITH FAILING TAPE DIAGNOSTICS. X 
T"03" 

aA/2/SFAILING TAPE DATA CONTROLLER. 
bB/2/$FAILING TEST NUMBER. 
eC/2/SFAILING SEGMENT NUMBER. 
DD/2/IR9 AT POINT OF FAILURE 



41 
42 



45 
46 
47 

4e 

49 
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TDC DIAGNOSTIC PROGRAM. 
SUPPORTING SUBROUTINES 



JSL 



01 «E/2/$R10 AT POINT OF FAILURE. 

02 fF/2/$R11 AT POINT OF FAILURE. 

03 rw 

04 SREFER TO #T0C TLM#. 

05 T"05" 

06 IHPR-1C958 CTAPM* STAPE DIAGNOSTICS. 

07 .IODEND 



11 OUT IOD ALM=0 PRI=0 CHL=MTC 

12 DGN TAPE #AA BB 

13 T"02" 

14 XGENERAL TAPE MESSAGE USED TO INDICATE THAT A 

15 FUNCTION ATP'ED, COMPLETED . 

16 T"03" 

17 AA/2/STAPE NUMBER 

18 bB/2/$IF EOUAL TO #ATP/K TEST RUNS WITHOUT FAILURE FOUND. 

19 bB/2/SIF EOUAL TO #C0MPL#, INDICATES THE TERMINATION 

20 OF A DIAGNOSTIC SEQUENCE RUN UNDER UCL MODE. 

21 T"04" 

22 * IF ABORTED SEEK OUT WHY IN 0CTAPH0 OR #CBLM#. 

23 T"05" 

24 0PR-1C958 CTAPM* $TAPE DIAGNOSTICS. 

25 .IODEND 



9:34:51 2/07/81 **** 
CTAPM W77D 



0115260 



29 OUT IOD ALM=0 PRI=0 CHL=MTC 

30 DGN TAPE #AA# ABT *BB 

31 T"02" 

J2 XTAPE DIAGNOSTICS WERE ABORTED. 

33 T"03" 

34 AA/2/STAPE NUMBER 

35 BB/2/SEITHER OR 1 

36 INDICATES THAT MSF CONTROLLER 

37 REQUESTED AN ABORT. 

38 1 INDICATES THAT TEST 6 COULD 

39 NOT ACCESS MATE UNIT TO 

40 INITIATE TEST. 

41 T"04" 

42 *IF ABORT SEEK OUT WHY SYSTEM FORCED ABORT. 

43 IF ABORT 1 SEEK OUT PROCEDURE IN TDC TLM FOR 

44 RUNNING TAPE DIAG. IF BOTH TDCS 

45 ARE OUT OF SERVICE. 

46 T"05" 

47 0PR-1C958 CTAPM T#APE DIAGNOSTICS. 

48 .IODEND 

49 INDEXGEN 
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F05 



TOC DIAGNOSTIC PROGRAM. 



-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 
-001- 



-001- 



04 » 

05 # 

06 H 

07 .« 



08 
09 
10 
11 
12 
13 
14 
15 






SECTION TITLE 
TOC DIAGNOSTIC PROGRAM. 

TIM B SECTION COMMENTS. 

DIAGNOSTIC TTY MESSAGE HANDLER. 

DIAGNOSTIC MONITOR 

TEST 1 SPI INTERFACE TEST 

TEST 2 BUFFER UNIT TEST 

TEST 3 TAPE UNIT CONTROLLER TEST 

TEST A MINI-RECORDER READ TEST. 

TEST 5 MISCELLANEOUS RECORDER FUNCTIONS. 

TEST 6 MINI-RECORDER WRITE TEST. 

SUPPORTING SUBROUTINES 



19 # THE TOTAL LENGTH OF THIS ASSEMBLY IS 01298 

20 CTAPM MAXSIZE 0,73 

21 TAPEDGN MAXSIIE 0,2422 








9:34:51 2/07/81 **** 




CTAPM 


W77D 




ADDRESS WORD COUNT 




000000 1298 






000000 







000000 


59 




000000 


149 




000225 


111 




000404 


229 




000751 


167 




001220 


140 




001434 


178 




001716 


129 




002117 


195 
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PATCH HISTORY 

LISTING OF INDIVIDUAL PATCHES 

*/*/*/*/012002/*/*/*/* 
0115260 



*/*/*/*/011799/*/*/*/* 



0115260 



*/*/*/*/012958/*/*/*/* 



0115260 



§_5 

9:34:51 2/07/81 **** 
CTAPH W77D 

-002- 01 PBEGIN PROG=CTAPM CSECT" ORG" TRNO"12002 SERN0B=64200 

02 H DO A REPACK AT FIRST DIAGNOSTIC ATTEMPT ONLY 

03 TCEND 

-001- 04 NOTE ******************************************************* v****** 



-002- 11 PBEGIN PROG=CTAPM TRN0=11799 SERN0B*62088 

12 # FIX ERROR IN THE TAPE DIAGNOSTIC FAILURE MESSAGE. 

13 TCEND 

-001- 14 NOTE ************************************************************** 



-002- 21 PBEGIN PROG=CTAPM TRN0=12958 SERN0B=48533 

22 It CHANGE CONSTANT FOR TINIT ORDER 

23 TCEND 

-001- 24 NOTE ************************************************************** 
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PATCH HISTORY 

LISTING OF INDIVIDUAL PATCHES 

*/*/*/*/013668/*/*/*/* 



9:34:51 



2/07/61 **** 
W77D 



0115260 



CTAPM 

-002- 01 PBEGIN PROG=CTAPM TRN0«13668 SERN0B=4?569 

02 K THIS PATCH MUST BE FOLLOWED BY PATCH 49741 TR 13669 

03 * THIS PATCH IS DESIGNED TO 1) ALLOW THE TDC DIAGNOSTIC TO RUN 

04 * REGARDLESS OF THE STATUS OF ITS MATE'S STATUS 2) CUT DOWN ON 

05 ft WARE PARTLY CAUSED BY THE DIAGNOSTIC ESPECIALLY THE WARE CAUSED 

06 ft TO THE MIDDLE OF THE SYSTEM DATA AREA, AND 3) WILL GREATLY 

07 n REDUCE THE DANGER OF DESTROYING SYSTEM DATA ON THE TAPE WHICH 

08 H MAKES THE TAPE USELESS (CAN NOT BE USED TO BOOTSTRAP) 

09 ft THE NEXT ENTRY WITH THE SAME BLOCK NUMBER 

10 TCEND 

-001- 11 NOTE ************************************************************** 



*/*/*/*/012339/*/*/*/* 



0115260 



-002- 



-001- 



18 
19 
20 
21 
22 
23 
24 



PBEGIN PROG=CTAPK TRN0«=12339 SERNOB-51172 

n THIS PATCH WILL OVER WRITE PART OF PATCH 49569, TROUBLE REPORT 
» 13668. THIS PATCH WILL SOLVE THE PROBLEM OF TAPE DIAGNOSTICS 
It FAILING IF A CALL STORE WORD IN TABLE IS NOT CLEARED BEFORE 
It THE DIAGNOSTIC IS CALLED. 

TCEND 

NOTE ************************************************************** 
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PATCH HISTORY 

LISTING OF INDIVIDUAL PATCHES 

*/*/*/*/790117/*/*/*/* 



0115260, 



0115260 



-002- 



-001- 



01 
02 

03 n NAME 

04 n DATE 

05 » MR 

06 # ABST, 
07 

08 



B06 



PBEGIN PROG*CTAPM 



9:34:51 



2/07/81 **** 
W77D 



CTAPM 



TRN0=790117 SERN0B=67787 



HNW 

11-27-79 
2E790117 

ABORTING TAPE DIAGNOSTICS HANGS TAPE HANDLER 
TCEND 

NOTE *****ft***************rt********A*rt*******#********************* 



0115260 



15 



END 
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C06 


PATCH HISTORr 






9:34:51 2/07/81 **** 


VALUE T NAME 


DEF/REF 


ATTRIBUTES AND REFERENCES CTAPM W77D 


30064660 S .STOP 








0111644 L XXX133 


21-18 


21-13 




0127654 L XXX136 


21-34 


21-29 


• 


0112051 L XXX158 


24-41 


24-36 




0127764 L XXX161 


25-01 


24-46 




0115165 L XXX571 


95-23 


95-18 




0131622 L XXX575 


95-35 


95-30 


. 


0000201 A XBITCNT 




1-08 




U XBOP 




1-08 


.... 


0030063 A XCHKTRX 


109-05 


152-41 




0000002 A XCLAS 




LIBNUM=14 


1-08 


0000020 A XMAXWRD 




LIBNUM=14 


1-08 


•CTAPM* T XNAMEX 








0000000 A XOR6X2 








J XOWX 


1-10 






J XPFTX 








•ALL' T XSAVREGS 








0000170 A XT 








0000010 A XTA1X 


21-09 


21-45, 24 


-31, 78-20, 80-14, 95-14, 99-36,103-02,110-18 


J XTCHEADX 


1-10 






'PRLINE 1,1, 

f 















. 


T, T XUSX 


TT ~ T XUSIN612 








" T XUSING14 








0000020 A XWRDCNT 




LIBNUM=14 


1-08 


TTYTBL V AXBT 


4-01 


25-02 




TTYTBL X AXTP 


23-10 


23-10 




0002422 A AAX 




LIBNUM=14 


1-08 


0127762 L ABORTDT 


24-29 


20-12, 24- 


■34 


0000000 A ACTIV 


10-33 


H"1 S=15 


N=0 CL=3 37-04, 38-04, 39-21, 39-31, 39-39, 39-43, 40-02, 41-05, 41-11, 






41-20, 42- 


■35, 42-39, 42-48, 43-07, 44-18, 44-23, 46-40 


CBLM V ACTMSF 


4-28 


19-09 




0117023 L ALLTEST 


111-01 


109-22 




0131670 L ATEOT 


98-01 


94-28, 96-42 


•CRCTBL+2' T ATOP 




W=20 S=0 


N»2 CL=2 19-27, 23-13, 24-01, 26-15 


0127714 I ATPIT 


23-17 


23-14 




0117776 L BACKSUB 


148-01 


111-45,115- 


•42,118-07,119-43,121-37,126-13,129-18,129-45,134-31.135-45-137-41.139-22-140-03 


0127567 I. BADRTN 


18-41 


18-19, 18-22, 18-27, 18-3C 


U BbX 




1-08 


. 
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PATCH HISTORY 
VALUE T NAME 



0020013 

0120013 

0060013 

17 

0160013 

0131162 

0131674 

■ 0117671 

•CRCTBL+6' 

HASACS 
0000000 
0131512 
0000000 
0127736 
0000000 
0000161 
0042013 
0000013 
0050013 
0044013 
0140013 
0000013 
0130225 

HASACS 
0132050 

TTYTBL 
0132171 
0131633 
•CRCTBL+5' 
0117436 
0117325 
0131576 
0000005 



0117327 
CSYSUB 
0000007 
0131566 
0132217 
0000000 
0127673 



BCLRBRF 

BCLROCN 

BFILL 

BHC 

BINIT 

BKSPLOP 

BKSPL0P1 

BKSPL0P2 

BLKADDR 

BLKMAX 

BOFL 

BOOTST 

BOT 

BPAXTOTST 

BR 

BRXT 

BSLDON 

BSTAT 

BSTFON 

B SUM. DON 

8SWB 

BUFDEV 

BUFFER 

BUFLEN 

BXT 

CXOMPL 

CALW 

CALW1 

CATP 

CHCKFINI 

CHCKSTAT 

CHECK 

CHKPOINT 



CHKSTAT 

CLR WRDS 

CLRTABX 

CLRTBL 

CtWT 

COMD 

COMPO 



D06 



9:34:51 



DEF/REF ATTRIBUTES AND REFERENCES 



CTAPM 



2/07/81 **** 
W77D 



9-03 



66-18 

98-12 

143-09 



5-13 
10-34 
78-23 
10-12 
24-10 
10-27 



9-02 



9-12 

36-01 

5-14 

104-27 

23-16 

107-25 

96-08 

130-09 

125-39 

94-15 

27-05 



126-01 

4-21 

88-03 

92-42 

108-03 
10-50 
22-45 



99-41, 99-42,111-26,113-07,116-27,119-29,125-34,133-14,152-46, 



61-17, 62-10, 71-48, 77-45, 79-39 



LIBNUM=12 44-14, 56-34 

LIBNUM=12 41-07, 48-14, 54-02, 57-47,106-24 

42-43, 45-24 
W=1 s=1 N=0 CL=1 LIBNUM=7 28-19, 29-12 

UBNUM=12 37-01, 46-37, 47-45, 53-41 

66-25 

98-19 
143-15 

W=13 S=0 N=6 CL=2 
152-47 

76-03, 99-01, 99-44,110-25,141-14,144-41 
W=1 S=16 N=0 CL=3 45-35 

77-48 
W=1 S=16 N=0 CL«3 

23-32, 25-48 
W=1 S=7 N=0 Ct<=3 42-40, 45-35 
LIBNUM=7 28-28 

LIBNUM=12 38-01, 47-48, 53-44,105-37 

LIBNUM=12 43-02, 45-31 

39-27, 48-06, 54-06 
LIBNUM=12 41-02, 48-11, 57-44,106-20 

LIBNUM=12 39-35, 41-16, 42-32, 54-11 

37-04, 38-04, 39-21, 39-22, 40-02, 41-05, 42-39, 42-40, 42-41, 45-35, 46-40 

24-18 
111-24,113-20,116-40,121-12,123-28,127-24 
104-22 

23-16 
107-32 

96-22 
H =1 S =4 N=5 CL=2 109-43,113-42,128-17,131-32,143-21 
128-18,128-26 
128-03,130-18 



30-36, 32-02, 33-24, 34-34, 36-07, 37-07, 38-10, 39-46, 41-23, 43-10, 44-26, 45-38, 
49-08, 50-08, 51-15, 52-33, 54-15, 55-35, 56-47, 58-10, 60-12, 61-20, 62-24, 63-40, 
66-29, 67-43, 68-46, 71-12, 72-30, 73-31, 74-41, 76-32, 78-32 



29-23, 

46-43, 

65-10, 
125-36 
146-14 

92-38 

92-47 
108-10 
W=4 S=10 N=0 CL=3 

24-02 



50-05 
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PATCH HISTORY 




VALUE T 


NAHE 


DEF/REF ATTRIBIT 


«.<(+l8 






!S*>; 






— / 






,%_>? 






•.US'"" ab 






edefghi n * <+ 






■f jklmnopqr 

«>S"-»StUVM 










xyz* t r r .*»° 1 * 

J«S67iot-'l3/ 










-<abcdefgM 






>jkl»no 






pqr \ s 






tuvwxyz 






0123*56789 






• T 


CONLC 


LIBNUM*10 


0131150 I 
•n 


CONREAD 


65-08 64-45 


z 
<e<hplx 






vSfgs 






-a I 






iX >k 






jodfb'd" ab 






edefghi „« <+ 






■f- jklmnopqr" 






a) ♦■--stuvH 






xyz» t rCJ» 01 * 

3»5o7*9tJ 1 ]^ 










-<ABCDEFGHI 
>JKLMN0 







E06 



9:34:51 2/07/81 **** 
CTAPM H770 



PQR \ S 
TUVWXTZ 
0123456789 

t 

0130125 
0127574 
0127637 
0130572 
0130570 
0131535 
0111432 
0112562 
0114107 
0115073 



C0NSC 

CONTEST 

C0NTI 

CONTINU 

CONTROL 

CONTRTN 

CONTRTNX 

CPATCH 

CPATCH1 

CPATCH2 

CPATCH3 



29-29 

19-02 

20-45 

49-01 

48-22 

79-41 

1-37 

1-38 

1-39 

1-40 



LI8NUM=10 
29-16 

18-39, 18-40, 19-01 
20-21 
24-19 
35-38, 59-16, 70-01, 79-42,142-06 

21-13, 24-36 
95-18,152-41 
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F06 






PATCH HISTORr 










9:34:51 2/07/81 **** 


VALUE T 


NAME 


DEF/REF ATTRIBUTES AND REFERENCES 




CTAPM W77D 


0121236 I 


CPATCH7 


1-41 










•BUFLEN' T 


CRC 


111-24,113-20,116-40,121- 


•12,123-28,127-24 , 






•CRCTBL+15' T 


CRCEXTR 


W=20 S=0 N=17 


CL=2 


88-03 






0117230 L 


CRCSTORE 


121-01 120-11 










'PA6SCR+0' T 


CRCTBL 


M=20 S=0 N=0 


CL=2 


92-36, 93-04 






'CRCTBL+8' T 


CRCTOrO 


W=20 S=0 N=10 


CL=2 


88-03, 88-04, 92-36 






•CRCTBL+9' T 


CRCT1Y0 


«=20 S=0 N=11 


CL=2 


88-05 






•CRCTBL+10' T 


CRCT1T1 


M=20 S=0 N=12 


CL=2 


88-07 






•CRCTBL+11* T 


CRCT2T0 


H=20 S=0 N=13 


CL=2 








•CRCTBL+12" T 


CRCT2T1 


H=20 S=0 N=14 


CL=2 


88-10 






•CRCTBL+13' T 


CRCT3T0 


M=20 S=0 N=15 


CL=2 


88-06 






'CRCTBL+14' T 


CRCT3Y1 


M=20 S=0 N=16 


CL=2 


88-08, 88-10 






U 


CTAPH 












0127526 L 


CTAPM 


1-31 18-01 










0127717 L 


CURRENT 


23-28 22-41, 25-44 










'CRCTBL+3' T 


CURTST 


W=20 S=0 N=3 


CL-2 


19-29, 21-19, 23-29, 


23-30, 23-42 




U 


D 












TTrTBL X 


DXGN 


25-15 25-15,103-38 










0000000 A 


ODT 


10-09 M=1 S«13 N=0 


CL-=3 








0131041 L 


DECKREAD 


60-01 24-20 










«.«+l8 














!$*); 














— / : 














,x_>? 














:#8'=" 














n*< + 




























3*S«749t-'-|3^ 


























-CABCDEFGHI 














>JKLMNO 














PQR \ S 














TUVWXYZ 














0123456789 














T 


DELLC 


LIBNUM=10 










0000000 A 


DEVICODE 


10-03 W=6 SO N=0 


:l-3 50 


•05 


• 




CTAPH V 


DGNRMV 


5-05 103-30 








' 


BLMMA V 


DGNTAPE 


4-15 19-15, 20-26 




> 






0000007 A 


DIAGBITS 


H=2 S=16 N=7 


CL«3 LIBNl 


23-41, 62-16, 


62-17, 72-05, 72-06,145-20, 






145-21 










0120014 L 


DIAGINT 


149-04 152-32 










CTAPH V 


DIAGST 


5-06 24-11 










COMMON TAPE MAINTENANCE 








PR-1C958-50 


9:34:51 


2/07/81 


TRADE SECRET - SEE TRADE 
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PATCH HISTORY 




9:34:51 2/07/81 **** 


VALUE 


T 


NAME 


DEF/REF 


ATTRIBUTES AND REFERENCES CTAPM W77D 


0000037 


A 


OIAGT 




LIBNUM«12 144-45,152-32 


MASACS 


V 


OIRLOC 


5-15 




MASACS 


V 


OIRTRK 


5-17 




0117767 


L 


DISPLAY 


147-01 


89-23, 92-08, 92-25, 94-26, 96-06, 96-39, 97-06, 98-08, 99-13,109-19,110-06,111-10,112-10, 
112-29,112-38,113-17,113-49,115-26,115-38,116-10,116-34,118-21,119-08,120-07,120-22,120-30, 
120-43,121-09,121-46,122-15,122-24,122-32,122-47,123-25,123-40,124-10,126-25,127-04,127-21, 
127-36,128-15,128-32,129-14,129-25,129-39,130-07,131-30,131-43,134-42,135-15,135-22,135-35, 
136-06,137-10,137-35,138-06,138-24,139-18,139-29,139-42,140-16,141-10,141-41 


0127625 


L 


DOLU 


20-14 


20-24 


0131467 


L 


EMGSTP 


78-01 


77-46, 79-40 


0117462 


L 


ENOTEST 


132-09 


140-18 


0000007 


A 


ENDTRK 




W=2 S=13 N=7 CL=3 LIBNUM=12 76-03, 76-04 





U 


EOS 






0000000 


A 


EOT 


10-06 


H=1 S=10 N=0 CL=3 61-17, 94-20, 96-41 


0131655 


L 


EOTCHCK 


96-32 


96-17 


'CRCTBL+5' 


T 


ERGOT 




W=1 S=1 N=5 CL=2 23-43, 23-44, 26-13 


0000005 


A 


ERNA 




W=1 S=16 N=5 CL=3 L7.8NUM=12 145-19 


0117121 


L 


ERRBKSP 


115-24 


115-20 


0117413 


L 


ERRBKSP2 


129-06 


128-47 


0130112 


L 


ERRESPCK 


29-18 


28-44 


0130075 


L 


ERRMSGCL 


28-46 


28-42, 29-21, 29-28 


0132000 


L 


ERRMSGPO 


103-05 


35-4.1, 59-18, 76-19, 76-28, 78-18,105-23,143-37 


0130221 


L 


ERRMSGPOX 


35-39 


29-15, 30-31, 31-45, 33-14, 33-16, 33-20, 33-22, 34-32, 37-05, 38-05, 39-26, 39-32, 39-40, 
41-06, 41-12, 41-15, 42-31, 42-47, 43-08, 44-13, 44-19, 44-22, 45-36, 46-41, 47-44, 48-05, 
48-21, 50-06, 51-13, 52-26, 54-01, 54-05 


0117670 


L 


ERRORS 


143-01 


96-30,116-01,126-14,126-43,127-09,127-28,128-48,129-19,129-46,131-23,131-33,134-18,134-32, 
135-24,135-46,137-42,138-16,139-04,139-23,140-04,141-31,141-46 


0117132 


L 


ERR0R1 


115-45 


109-12,109-47,110-33,112-01,113-08,116-28,118-10,119-44,120-35,120-48,121-38,122-34,123-14, 
123-30 


0131653 


L 


ERR0R2 


96-28 


92-15, 95-46, 96-44, 97-08 


0132204 


L 


ERRSTOP 


107-40 


107-37 


0132157 


L 


ERXIT 


106-49 


106-23,106-27,106-38,106-41 





J 


ESS2 


1-10 




1 


J 


ESS2E 


1-09 




'CRCTBL+5' 


T 


FAIL 




W-1 S=3 N*5 CL=2 25-28, 26-14,103-24 


0127775 


L 


FAILOK 


25-24 


22-27 


0132117 


L 


FAILURE 


106-03 


105-48 


0131610 


L 


FASTFOR 


95-01 


94-21 


0000001 


A 


FATAL 


88-01 


99-07,112-40,115-22,131-22 


1 


J 


FIELD 


1-09 




0000000 


A 


FILL 


10-35 


W*1 S=17 N=0 CL=3 42-39 


0130463 


L 


FLLAGN 


45-23 


45-30 


0000012 


A 


FSTY1ENT 


88-07 


131-45 


0120032 


L 


GENDATA 


150-42 


150-32 


0120040 


L 


GENLOOP 


151-21 


151-25 


0131315 


L 


GO 


72-25 


72-19 


LAYOUT 


V 


I_OBUF 


4-41 


62-19, 64-39, 66-26, 68-40, 72-13, 99-24,110-10,111-24,113-02,113-20,116-21,116-40,121-12, 
123-28,127-24,151-17 


0000007 


A 


IDLE 




LIBNUM=12 146-15 
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A07 



PATCH HISTORT 
VALUE T NAME 



9:34:51 



0000000 
•ILLEGAL CON 
DITIONAL IN 
THE IF MACRO 
'DATA > OR 
DATA < IS 
MEANINGLESS 
, USE DATA " 
= 0' 

•TWO CONSTAN 
TS ARE BEING 
COMPARED IN 
IF MACRO' 
•AN ITEM WAS 
COMPARED TO 
SOMETHING 
THER THAN A 
CONSTANT' 
'DESTINATION 
OF AN * STA 
TEMENT IS A 
CONSTANT' 
•ATTEMPTING 
TO SET ITEM 
= TO SOMETHI 
NG OTHER THA 
N A CONSTANT 
•ITEM MAY ON 
LV USE THE = 
AND -■ COND 
ITIONALS' 

0000014 
'TDC DIAGNOS 
TIC PROGRAM. 
•TEST 6 MINI 
-RECORDER WR 
ITE TEST.' 
•SUPPORTING 
SUBROUTINES' 



A IDLTST 

•T IFERR0R1 

T IFERR0R2 

T IFERR0R3 

T IFERR0R4 

T IFERR0R5 

•T IFERR0R6 



T IFERR0R7 
A INDEXCNTR 

•T INDEXTITLE1 



T INDEXTITLE10 

T INDEXTITLE11 
T INDEXTITLE12 



DEF/REF ATTRIBUTES AND REFERENCES 
LIBNUM=12 20-20 



CTAPM 



2/07/81 **** 
W77D 



*TLH B SECTI 

ON COMMENTS. *T INDEXTITLE2 
'DIAGNOSTIC 
TTY MESSAGE 
HANDLER.' 
'DIAGNOSTIC 
MONITOR' 
'TEST 1 SPI 
INTERFACE T 



T INDEXTITLE3 
T INDEXTITLE4 



3-09 12-33, 17-25, 19-32, 24-32, 35-44, 48-26, 59-19, 70-02, 79-43,100-08,156-01 
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B07 



PATCH HISTORY 


VALUE 


T 


NAME 


EST' 


T 


INDEXTITLE5 


'TEST 2 BUF 






FER UNIT TES 






T' 


T 


INDEXTITLE6 


'TEST 3 TAPE 






UNIT CONTRO 






LLER TEST' 


T 


INDEXTITLE7 


'TEST 4 MINI 






-RECORDER RE 






AD TEST.' 


T 


INDEXTITLE8 


'TEST 5 MISC 






ELLANEOUS RE 






CORDER FI'NCT 






IONS.' 


T 


INDEXTITLE9 


0040007 


A 


INIT 


CTAPH 


V 


INITTAPE 


0000000 


A 


INTOFF 


•CRCTBL+5' 


T 


INTSBR 


'MTC 68-15 M 






INI-RECORDER 






0' 


T 


JKOO 


•MTC 60-15 M 






INI-RECORDER 






1' 


T 


JKOt 


•MTC 68-31 J 






K10 BUFFER U 






NIT CIRCUIT' 


T 


JK100 


•MTC 6C-31 J 






K10 BUFFER U 






NIT CIRCUIT' 


T 


JK101 


•MTC 68-29 J 






K11 BUFFER U 






NIT CIRCUIT' 


T 


JK110 


•MTC 60-29 J 






K11 BUFFER U 






NIT CIRCUIT' 


T 


JK111 


•MTC 68-28 J 






K12 BUFFER U 






NIT CIRCUIT' 


T J 


'MTC 6C-28 J 






K12 BUFFER U 






NIT CIRCUIT* 


T 


JK121 


•MTC 68-27 J 






K13 BUFFER U 






NIT CIRCUIT' 


T 


JK130 


'MTC 60-27 J 






K13 BUFFER U 






NIT CIRCUIT' 


T 


JK131 


'MTC 68-22 J 







DEF/REF 



ATTRIBUTES AND REFERENCES 



9:34:51 2/07/81 **** 
CTAPM W77D 



LIBNUM«=12 
5-07 21-06,103-47 
10-29 W=1 S=11 N=0 
W=1 S=0 N=5 



21-41, 30-27, 59-07, 67-37, 78-02, 96-24,103-43,107-41 



CL«3 
CL*2 



44-12, 56-44 
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C0'7 



PATCH HISTORr 
VALUE T NAME 



OEF/REF ATTRIBUTES AND REFERENCES 



9:34:51 2/07/81 **** 
CTAPM W77D 



K16 TAPE UNI 
T CONTROLLER 'T 
•MTC 60-22 J 
K16 TAPE UNI 
T CONTROLLERS 
•MTC 68-21 J 
K17 TAPE UNI 
T CONTROLLER *T 
'MTC 60-21 J 
K17 TAPE UNI 
T CONTROLLERS 
•MTC 68-20 J 
K18 TAPE UNI 
T CONTROLLER 'T 
•MTC 60-20 J 
K18 TAPE UNI 
T CONTROLLERS 
•MTC 68-19 J 
K19 TAPE UNI 
T CONTROLLERS 
•MTC 60-19 J 
K19 TAPE UNI 
T CONTROLLERS 
'MTC 68-34 J 
K5 SERIAL PE 
RIPHERAL INT 
ERFACE CIRCU 
IT' 

•MTC 60-34 J 
K5 SERIAL PE 
RIPHERAL INT 
ERFACE CIRCU 
IT' 

•MTC 68-33 J 
K6 SERIAL PE 
RIPHERAL INT 
ERFACE CIRCU 
IT' 

•MTC 60-33 J 
K6 SERIAL PE 
RIPHERAL INT 
ERFACE CIRCU 
IT' 

•MTC 68-32 J 
K7 SERIAL PE 
RIPHERAL INT 
ERFACE CIRCU 
IT' 
•MTC 60-32 J 



JK160 
JK161 
JK170 
JK171 
JK180 
JK181 
JK190 
JK191 

T JK50 

T JK51 

T JK60 

T JK61 

T JK70 
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D07 



PATCH HISTORY 
VALUE T NAME 



DEF/REF 



ATTRIBUTES AND REFERENCES 



K7 SERIAL PE 

RIPHERAL INT 

ERFACE CIRCU 

IT* 

'MTC 68-17 J 

K8 BUS TERMI 

NATOR CIRCUI 

r 

•MTC 60-17 J 

K8 BUS TERMI 

NATOR CIRCUI 

T' 

•MTC 68-16 J 

K9 BUS TERMI 

NATOR CIRCUI 

T' 

•MTC 60-16 J 

K9 BUS TERMI 

NATOR CIRCUI 



T JK71 



T JK80 



T JK81 



T JK90 



T* 


T JK91 








0000007 


A LASTBLK 




W=13 S=0 


N«=/ 


01176S7 


L LASTCALL 


141-34 


141-29 




0025730 


A LDPARX 




LIBNUM=7 




0132161 


L LEDP30T 


107-07 


62-13, 72 


-02 


0130366 


L LODOTH 


42-28 


42-36 




0000000 


A LOOST 


10-30 


W=1 S=12 


N=U 


0132076 


L L0D1HLF 


105-31 


39-25, 42 


-JO, 
N=5 


0000005 


A LOGBLK 




W=13 S>=0 


•BUFSTAT* 


T LONAM ACTIV 








•CRCTBL' 


T LONAM ATOP 








'CRCTBL' 


T LONAM BLKADD 

R 
T LONAM BOFL 








•BUFSTAT' 








'TAPSTAT' 


T LONAM BOT 








•BUFSTAT' 


T LONAM BR 








•CRCTBL' 


T LONAM CATP 








'TAPPRI* 


T LONAM COMO 








'CRCTBL' 


T LONAM CRCEXT 

R 
T LONAM CRCTBL 








'PAGSCR' 








•CRCTBL' 


T LONAM CRCTOY 


T LONAM CRCT1Y 


T LONAM CRCTU 

1 
T LONAM CRCT2Y 


T LONAM CRCT2Y 








'CRCTBL' 








•CRCTBL' 








•CRCTBL' 








•CRCTBL' 









CL«=3 LIBNUM=12 76-04,145-22,145-23 



28-30 



CL=3 

47-43 

CL=3 







9:34 


.51 2/07/81 
CTAPM 


W770 


















■ 






■ 









38-04, 42-39, 42-40, 42-41, 42-46, 43-06, 44-17 



LIBNUM=12 



76-02 
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E07 




PATCH 


HISTORY 


9:34:51 2/07/81 **** 


VALUE T NAME DEF/REF ATTRIBUTES AND REFERENCES 


CTAPM W77D 


'CRCTBL' 


1 

T LONAM CRCT3Y 


T LONAM CRCT3Y 

1 
T LONAM CURTST 




•CRCTBL' 




•CRCTBL' 




'TAPSTAT' 


T LONAM DOT 




'TAPSTAT* 


T LONAM DEVICO 
DE 




'TAPSTAT* 


T LONAM EOT 




•CRCTBL' 


T LONAM ERGOT 




'CRCTBL' 


T LONAM FAIL 




•BUFSTAT' 


T LONAM">ILL 




'BUFSTAT' 


T LONAM INTOFF 




'CRCTBL' 


T LONAM INTSBR 




•BUFSTAT' 


T LONAM LODST 




'TAPSTAT' 


T LONAM MOP 




'TAPPRI' 


T LONAM~MSTP 




'TAPSTAT' 


T LONAM MTCE 




•CRCTBL' 


T LONAM PASS 




•BUFSTAT' 


T LONAM PPE 




'BUFSTAT' 


T LONAM ROY 


• 


'TAPSTAT' 


T LONAM REHND 




'STATUS' 


T LONAM STAEXT 

R 
T LONAM STATSV 




•CRCTBL' 




'PAGSCR' 


T LONAM - STATUS 




'STATUS' 


T LONAM~STATOY 


T LONAM STATU 


T LONAM STATU 

1 
T LONAM STAT2Y 


T LONAM STAT2Y 

1 
T LONAM STAT3Y 


T LONAM STAT3Y 

1 
T LONAM STUFF 




•STATUS' 




'STATUS' 




'STATUS' 




•STATUS" 




'STATUS' 




•STATUS' 




•BUFSTAT' 




'TAPSTAT' 


T LONAM TIM 




•TAPSTAT' 


T LONAM TOR 




'CRCTBL' 


T LONAM TPNO 




'TAPPRI' 


T LONAM TPR 




'CRCTBL' 


T LONAM TRK 




•TAPPRI' 


T LONAM TRKH 




•TAPPRI' 


T LONAM_TRKL 




COMMON 


TAPE MAINTENANCE 


PR-1C 958-50 


9:34 
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F07 








PATCH HISTORY 








9:34:51 2/07/81 **** 


VALUE 


T 


NAME 


DEF/REF ATTRIBUTES AND REFERENCES 






CTAPM W77D 


'CRCTBL' 


T 


LONAM TSTNO 










•TAPSTAT' , 


T 


LONAM TUR 


. 








•BUFSTAT' 


T 


LONAM UNST 










•TAPSTAT' 


T 


LONAM HENBL 










0000015 


A 


LSTYOENT 


88-06 121-14 








0000016 


A 


LSTY1ENT 


88-08 118-25,130-11,132-13 








CTVTAB 


V 


MXSFABT 


LIBNUM=10 20-28 








14 


P 


MXSFABTX XCB 
LM 


LIBNUM=10 








0000006 


A 


MAXNO 


9-11 18-28, 23-31 








0000231 


A 


MCHBXF 


LIBNUM=7 28-34 








0000223 


A 


MCHTRXT 


LIBNUM=7 29-03 


. 






0026472 


A 


MCHTRXMCHBX 


LIBNUM=7 28-32 








TTYAPP 


V 


MFAD 


4-11 26-19 


• 






<. ( It 












..- - " 


~ T$*>; 














'jU : 














■ :#8 , =" ab 














edefaM „<<♦ 
■f jklmnopqr" 

«)♦• — JtUVM 






































xyt*<-rti»oit 

3»5o7e9tJ.,3* 


















. 








-<ABCDEFGHI 














>JKLMN0 














P9R \ S 














TUVWXYZ 














0123456789 

1 


T 


MICOOETR 


LIBNUM=7 








0131255 


L 


MISCT 


71-01 24-21 








0000000 


A 


MOP 


10-13 W=1 S=17 N=0 CL=3 








0132236 


L 


MOREWAIT 


108-43 109-01 








•3E790207' 


T 


MRNO 










CBLM 


V 


MSFABT 


4-30 








CTSD 


V 


MSFPR06 


4-44 27-05, 29-26, 30-39, 32-05, 33-27, 34-37, 36-07, 


37-10, 


38-13, 


39-49, 41-26, 43-13, 44-29, 








45-41, 46-46, 49-08, 50-11, 51-18, 52-36, 54-18, 


55-38, 


57-01, 


58-13, 60-12, 61-23, 62-27, 








63-43, 65-13, 66-32, 67-46, 68-49, 71-12, 72-33, 


73-34, 


74-44, 


76-35, 78-35,147-23 


CBLM 


V 


MSFRE8. 


4-29 19-17 








0000000 


A 


MSTP 


10-48 H=1 S=6 N=0 CL=3 50-04, 50-05 








0000000 


A 


MTCE 


10-10 W=1 S=14 N=0 CL=3 51-11, 51-12, 59-14 








0130067 


L 


MYSLF 


28-39 28-40 








0132234 


L 


MYWAIT 


108-33 63-36, 77-32,108-21,108-27 






• 


COMMON TAPE MAINTENANCE 








PR-1C958-50 


9:34851 
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SHEET 


CTAPM 
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PATCH HISTORT 






9:34:51 2/07/81 **** 


VALUE T NAME 


DEF/REF ATTRIBUTES AND REFERENCES 




CTAPM M77D 


0127533 L NEX 


18-10 18-07 






0132137 I NEXHLF 


106-30 106-46 






0127537 L NEXT 


18-15 18-12 






0131423 L NEXTSTP 


76-23 






0117155 L NEXTT 


116-44 115-28 






0117100 L NEXXT 


113-26 112-41 






011713* L N0ERR0R1 


116-04 115-43 






0127676 L NOFLG 


22-48 26-29, 26-31 






0131271 L NOLED 


72-04 71-49 


-- 




0000360 A NOPXF 


UBNUM=7 29-03 






0132141 L NORD 


106-32 106-42 






0117003 L NOSPEEO 


109-27 99-15 






0131443 L NXTBK 


77-25 77-33 






0130270 L NXTLOAD 


39-23 39-44 






0130326 L NXTUNL 


41-01 41-21 






0000002 A NXTY1ENT 


88-10 121-24,132-19 






0127612 L OKREQ 


19-22 19-18 






CTAPH V OPENTCB 


144-44 144-44 






0130015 L OPTLOK 


26-01 25-29 






<.<(AON 








X$*); 








-S/ 








,*_>? 








nCa'L" ab 








edefghl n S<* 

■f jklmnopqr" 

■ >♦■ — stuvw 




















3*5«7*9tJ- ) ]/ 














-■CIBCLEFGHI 








>JKLMNO 








PQR \ S 








LILWLYZ 








0123456789 








• T OPTR 








0130637 L OROON 


52-18 52-31 






0001261 A ORG 000000 


109-09 






0001272 A 0RG~000020 


110-18 




, 


0000203 A ORG 000031 


21-09 






0000214 A ORG~000037 


21-45 






0001073 A ORG~000072 


95-24 






0000234 A ORG~000141 


24-31 






0001602 A ORGJ)00162 


152-45 






COMMON TAPE MAINTENANCE 
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JfflL 



PATCH HISTORY 
VALUE T NAME 



DEF/REF 



ATTRIBUTES AND REFERENCES 



9:34:51 2/07/81 **** 
CTAPM H77D 



0000205 
0000236 
0000633 
0000646 
0001071 
0001131 
0001137 
0132106 
0131314 
CTVTAB 

14 

CTSD 
'CRCTBL+5* 
0115255 

TTYAPP 
0000000 

CTAPH 
0000000 
0132017 
0132015 

CTVTAS 

14 



14 P 



ORG 000212 

ORG 000417 

ORG 001671 

ORG 001716 

ORG~001777 

ORG 002102 

ORG~002157 

OROUT 

OTHER 

PXMRY 

PXMRYX XTTYA 

PP 

PAGSCR 

PASS 

PATCH2 

PMRY 

POSOK 

POSST 

PPE 

PUTAWAY 

PUTAWAY1 

RXEQR 

RXEQRX XCTAP 

H 

RAO 



16 P RA1 



0117034 
0000000 
0000002 
0131721 
0120045 
0117316 
MASACS 
0000000 
0130405 
0117467 
0111650 
0000007 
0117646 



RDSTAT 

RDY 

RD1BLK 

READOK 

READSU8 

READ2 

RECKON 

REOON 

REFILL 

REPAIR 

REPAKWT 

REPK 

REPOS 



21-19 

24-42 

78-20 

80-14 

95-14 

99-36 
103-02 
105-42 105-49 



72-23 



4-43 



7«-39 
LIBNUM=10 

LIBNUM=10 



25-11 



Lioni/n- iu 

19-25, 20-47, 23-30, 24-44, 92-36, 92-37, 93-04, 93-05,144-39 
W=1 S=2 N=5 CL=2 22-26, 22-38, 48-23 
152-45 110-23 
25-11 

H=1 S=15 N=0 CL=3 LIBNUM=12 75-47,145-30 

5-09 76-06 
10-26 W=1 S=6 N=0 CL-3 
103-34 23-19 
103-31 103-27 

LIBNUM=10 20-19 



111-31 
10-28 

99-20 

152-01 

124-01 

5-16 

42-42 

133-01 

21-23 

141-20 



LIBNUM=10 
LIBNUM=3 
22-47, 22- 
26-08, 26- 
99-42,103- 
125-34,127- 
LIBNUM=3 
24-14, 24- 
62-16, 62- 
76-20, 76- 
105-24,105- 
145-21,145 
151-23,152 
118-30 
W=1 S=10 
LIBNUM=12 
99-06 
99-05,109 
121-19 
77-30 
W=1 S=16 

44-24 

132-07 

21-27 

W=1 S=15 

141-32 



19- 
•49, 23 
■11, 26 
24,103 
■25,128 

20 
■23, 25 
■17, 63 
■25, 76 
■25,113 
•23,145 
■27,152 



■05, 19 
■13, 23 
■13, 26 
■25,103 
■17,131 
-46, 21 
74, 25 
•37, 67 
■26, 92 
■32,117 
■25,145 
-28 



N=0 CL=3 
152-32 



■25, 19-26, 19-27, 19-29, 20-47, 20-48, 21-19, 22-26, 22-38, 22-39, 

■29, 23-42, 23-43, 23-44, 24-01, 24-13, 25-28, 25-35, 25-37, 25-41, 

•14, 26-15, 26-26, 26-27, 44-12, 48-23, 56-44, 92-36, 92-44, 93-04, 

•26,109-43,111-25,111-26,113-21,113-42,116-41,119-29,121-13,123-27, 

-32,133-14,143-21,151-18,151-24,152-47 

-01, 21-02, 21-26, 21-36, 22-18, 22-43, 22-46, 23-01, 23-41, 24-12, 

-36, 25-39, 25-40, 26-07, 26-10, 26-12, 26-25, 52-13, 52-21, 52-24, 

-40, 72-05, 72-06, 75-45, 75-46, 75-47, 75-48, 76-02, 76-04, 76-07, 

-37, 92-45, 93-05, 99-08,103-35,103-36,103-48,103-49,105-22,105-23, 

-05,119-27,121-25,126-03,128-22,131-22,132-03,145-18,145-19,145-20, 

-27,145-28,145-30,146-10,146-16,148-36,148-37,150-27,150-28,151-17, 

37-04, 38-04, 39-22, 40-02, 42-39, 42-40, 42-41, 45-35, 46-40 



46,112-15,115-09,122-02,126-30,128-41,134-08,138-40 



N=0 CL«=3 LIBNUM=12 



N=7 CL=3 LIBNUM=12 



26-30 



21-36,103-49 
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PATCH HISTORY 


9:34:51 2/07/81 **** 




VALUE T NAME DEF/REF ATTRIBUTES AND REFERENCES 


CTAPM W77D 






0117635 L REPOSITI 141-01 132-18 

0000000 A REQ W<=4 S=0 N=0 CI. =3 LIBNUM=12 146-16 
CTAPH V REQR 20-19 141-18,141-26,145-06,148-40,148-49,150-35,152-31 






• 


CTAPH V REOSTP 5-08 21-26, 21-26 
0132070 L RESETAO 105-21 105-17 
0130036 L RESETAT 26-24 23-45 
0127725 L RETFAIL 23-39 26-16 
0117016 I RETURN2 110-24 152-48 
0000000 A RrWND 10-11 H=1 S=15 N=0 CL»3 








" T RMK ACTIV 






. 


" T RMK ATOP 








' BLOCK NUMB 








ER OF THE 2N 








D LAST BLOCK 
OF THE TAPE'T RMK BLKAOOR 








" T RMK BOFL 
" T RMK BOT 
" T RMK BR 








• USED IN TE 
ST 6 ONLY' T RMK CATP 
' COMMAND OE 
CODER' T RMK COMD 
1 THE EXTRA 
CRC TABLE LO 

CCATION' T RMK CRCEXTR 
' E«UATE THE 
CRC TABLE T 
THE FIRST 






' 


ENTERY OF PA 








GSCR' T RMK_CRCTBL 

1 THE CRC FO 








R TRACK AODR 






' 


. 0, BLOCK Y'T RMK CRCTOYO 

' THE CRC FO 

R TRACK ADDR 

. 1, BLOCK Y'T RMK CRCT1Y0 

' THE CRC FO 

R TRACK ADDR 

. 1, BLOCK Y 








+1' T RMK CRCT1Y1 
' THE CRC FO 








R TRACK ADDR 


»• 






. 2, BLOCK Y'T RMK CRCT2Y0 








' THE CRC FO 


, 






R TRACK ADDR 

. 2, BLOCK Y 

■M' T RMK CRCT2Y1 

' THE CRC FO 








R TRACK ADDR 






! 

- ' i' 
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PATCH HISTORY 


VALUE T 


NAME DEF/REF ATTRIBUT 


. 3, BLOCK Y'T 


RMK.CRCT3Y0 


' THE CRC FO 




R TRACK ADDR 




. 3, BLOCK Y 




+V T 


RMK CRCT3Y1 


" T 


RMK CURTST 


" T 


RMK DDT 


" . T 


RMK~DEVICODE 


T 


RMK.EOT 


' TEST FAILE 




D* T 


RMK_ERGOT 


' FAIL REPOR 




T BIT' T 


RMK FAIL 


" T 


RMK FILL 


" T 


RMK_INTOFF 


' INTERRUPT 




GENERATED' T 


RMK INTSBR 


• I T 


RMK LODST 


" T 


RMK.MOP 


' MAINTENANC 




E STOP ENABL 




E" T 


RMK MSTP 


" T 


RMK_MTCE 


' TEST PASS 




REPORT BIT' T 


RMK PASS 


" T 


RMK PPE 


" T 


RMK RDY 


•• T 


RMK^REHND 


' THE EXTRA 




STATUS TABLE 




LOCCATION' T 


RMK STAEXTR 


" T 


RMK.STATSV 


* EQUTE THE 




STATUS TABLE 




TO THE MIOO 




LE OF PAGSRC'T 


RMK.STATUS 


• THE STATUS 




FOR TRACK A 




DDR. 0, BLOC 




K Y' T 


RMK_STATOYO 


• THE STATUS 




OF TRACK AD 




DR. 1, BLOCK 




Y* T 


RMK.STAT1Y0 


1 THE STATUS 




OF TRACK AD 




DR. 1, BLOCK 




Y+V T 


RMK_STAT1Y1 


' THE STATUS 





C08 



9:34:51 2/07/81 **** 
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DOS 



PATCH HISTORY 
VALUE T NAME 



DEF/REF ATTRIBUTES AND REFERENCES 



9:34:51 2/07/81 **** 
CTAPM W77D 



OF TRACK AO 
OR. 2, BLO£K 

r' 

' THE STATUS 

OF TRACK AD 
DR. 2, BLOCK 

Y+1' 
1 THE STATUS 

OF TRACK AD 
DR. 3, BLOCK 

Y' 
' THE STATUS 

OF TRACK AD 
DR. 3, BLOCK 

Y+1- 



• TRANSPORT 
READY' 

• TRACK BITS 
OF THE TRAC 

K/BLOCK ID' 

'.TRACK BITS 

■ 

• TRACK BITS 



0117443 
0117502 
0117622 
0117536 
0117542 
0117602 
0117610 
TTYTBL 
0117514 
0117513 
0117551 
0117561 
0127611 
0132047 
0132043 




T RMKSTAT2Y0 



T RMKSTAT2Y1 



T RMKSTAT3Y0 



RMK STAT3Y1 
RMK STUFF 
RMK TIM 
RMK TOR 
RMKTPNO 



T RMK TPR 



T RMKJTRK 
T RMK TRKH 



RMK TRKL 

RMK TSTNO 

RMK TUR 

RMK UNST 

RMK WENBL 

RPARCK 

RPARRD 

RPFINIBS 

RPRDBK 

RPRDBKSP 

RPREREAD 

RPRRDBS 

RPT 

RPWRBKSP 

RPWRIT 

RP2BKSP 

RP2BS 

RTN RL 

RTNT 

RTORD 

RO 



131-01 130-16 
134-01 136-08 
139-35 138-41 
135-28 135-04 
135-42 134-17 
138-37 139-31 
139-11 139-03 
4-02 18-06 
134-28 135-17 
134-22 134-12 
137-01 134-06 
137-37 137-46 
19-19 19-10 
104-23 104-29 
104-16 104-31 

LIBNUM=3 



IBNUM=3 18-05, 18-08, 18-13, 20-11, 20-25, 20-26, 20-46, 20-47, 21-02, 21-19, 21-20, 
22-39, 22-40, 22-42, 22-43, 23-29, 23-31, 23-40, 23-41, 23-42, 24-15, 24-16, 24-22, 24-23, 
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EOS 



PATCH HISTORY 
VALUE T NAME 



9:34:51 



2/07/81 **** 



DEF/REF 



ATTRIBUTES AND REFERENCES 



0000123 A ROXF 
1 R R1 



12 R R10 



0000152 A R10XT 
13 R R11 



2 R R2 



3 R R3 

4 R R4 

5 R R5 

6 R R6 

7 R R7 



25 
28 



95- 



25-34, 

26-25, 

52-24, 52 

76-02, 76 

93-05, 
141-28,144 
LIBNUM=7 
LIBNUM=3 

23-03, 24 

99-44,103 
123-29,127 
145-23,146 
LIBNUM=3 

38-01, 39 

47-45, 

53-47, 



47 
54 



59-10, 61- 



n 

95 



71-45, 
94-17, 
106-29,107 
LIBNUH=7 
LIBNUM=3 
41-10, 41 
58-04, 59 
95-45, 96 
LIBNUM=3 
38-15, 39 
98-19,103 
108-02,108 
126-37,128 
143-08,143 
LIBNUM=3 
40-02, 41 
74-39, 92 
113-33,116 
127-25,127 
145-28 
LIBNUM=3 
64-40, 64 
113-22,113 
128-24,132 
LIBNUM=3 
113-21,116 
LIBNUM=3 

99-01, 99 

113-07,116 

150-28,151 

LIBNUM=3 

32-04, 32 



•38, 25' 
•22, 28' 
■25, 61- 
■06, 76' 
11, 96- 
39,145- 

28 

18- 
■11, 24- 
■33,103- 
■25,127- 
■10 

19- 
•27, 39 
•48, 48- 
■02, 54- 
■13, 62- 
■08, 72- 
■03, 95- 
•17,107- 

28- 

28- 
•20, 42- 
■14, 61- 
•16, 96- 

19- 
■41, 41- 
■20,103- 
■06,108- 
•34,128- 
■15,151- 

19- 
■05, 41- 
■38, 92- 
■41,117- 
■38,128- 

24- 

•41, 65- 
■32,115- 
-03,132- 

20- 
■40,116- 

18- 
-24, 99- 
•27,119- 
•23,151- 

18- 
•05, 33- 



•39, 25- 
•38, 28- 
-16, 61- 
-07, 76- 
■18,103- 
-08,145- 
■28 

■24, 18- 
-12, 25- 
-35,109- 
-26,133- 

-28, 19- 
■35, 41- 
-02, 48- 
-06, 54- 
-21, 64- 
■26, 73- 
■41, 96- 
-33,107- 
-34 

■47, 29- 
-35, 42- 
-17, 62- 
-41, 96- 
-15, 20- 
-19, 42- 
-36,104- 
-42,108- 
-47,133- 
-17,151- 
-05, 19- 
-10, 41- 
-44, 92- 
-05,118- 
-01,128- 

13, 24- 
05, 66- 
22,116- 
05 

13, 20- 
41,121- 
76, 19- 
41, 99- 
29,119- 
24,152- 
20, 18- 
26, 33 



40, 25-41, 25-42, 25- 

40, 29-19, 29-20, 31- 
17, 68-40, 68-41, 68- 

12, 76-16, 76-20, 76- 
48,104-19,104-43,105- 
27,145-28,146-09,146- 

25, 18-26, 18-28, 18- 
36, 25-37, 62-18, 62- 
10,110-25,110-30,110- 
28,133-29,133-30,133- 

29, 21-41, 28-48, 30- 
02, 41-07, 41-16, 42- 
06, 48-11, 48-14, 48- 
11, 55-19, 55-23, 55- 

41, 64-43, 64-44, 64- 
25, 74-27, 74-34, 77- 

13, 96-24, 98-14,103- 
41,107-44,143-10 



CTAPM 

■45, 26-07, 26-09, 26-10, 26-11, 26- 
•44, 33-21. 50-04, 50-05, 51-11, 51- 
■43, 72-13, 72-18, 75-45, 75-46, 75- 
■21, 76-25, 76-26, 76-27, 92-36, 92- 
■23,107-24,107-28,108-02,108-06,108- 
■15,146-16,148-36,149-02,150-27,152- 

•29, 18-31, 18-33, 18-35, 18-37, 18- 
■19, 72-14, 72-18, 76-03, 76-04, 99- 
•31,113-02,113-07,116-21,116-22,116- 
-32,133-34,133-39,141-14,144-41,145- 



27, 31-41, 33 

32, 42-43, 43 

17, 50-01; 51 

29, 56-34, 56 

46, 64-47, 65 

24, 77-42, 78 
43,104-28,104 



•08, 33-17, 34-28, 
■02, 44-14, 45-24, 
•07, 52-21, 52-27, 
•37, 57-44, 57-47, 
•04, 66-19, 67-32, 
•02, 78-07, 78-13, 
■30,105-37,105-40,106 



W77D 

■12, 26-17, 
■12, 52-13, 
•48, 76-01, 
■37, 93-04, 
■42,108-46, 
■27 

■38, 22-46, 
•07, 99-08, 
•27,123-27, 
•18,145-22, 

•32, 37-01, 
•31, 46-37, 
■41, 53-44, 
■01, 59-07, 
■37, 69-02, 
•25, 79-36, 
■20,106-24, 



20, 30 
46, 43 

10, 69 
43,104 
48, 20 
27, 52 
15,104 
46,111 
46,134 
18,151 
06, 22 

11, 42 
45, 92 
25,119 
22,130 



■30, 33- 
■06, 44- 
•07, 71- 
•28,106- 
•49, 21- 
■14, 52- 
■31,105- 
-33,112- 
■11,134- 
•19,151- 
•47, 23- 
•39, 42- 
-47,103- 
■25,119- 
-11,130- 



15, 33 

17, 44 

48, 73 

39,107 

01, 23 

31, 76 

40,105 

31,115 

17,134 

25 

01, 23 

46, 42 

22,105 

27,121 

17,131 



•14, 39-22, 39-38, 39 
■15, 66-17, 66-25, 66 
•42,117-05,119-27,120 

■24, 42-41, 44-17, 44 
■12,121-13,123-28,123 
■25, 22-49, 23-01, 24 
■42,103-25.106-33,106 
■30,121-27,125-34,125 
■28,152-46,152-47 
•32, 23-10, 23-16, 25 
■27, 34-36, 34-37, 36 



-21, 37-04, 38-04, 39-30, 39-38, 39-43, 41-05, 

-23, 45-35, 46-40, 48-20, 50-05, 51-12, 52-25, 

-28, 74-37, 77-45, 77-47, 78-16, 79-39, 94-20, 

-01,107-36 

-05, 25-35, 25-36, 25-39, 26-08, 26-10, 26-26, 

-12, 76-16, 77-23, 77-33, 95-11, 96-18, 98-10, 

-41,105-49,106-39,106-43,106-45,107-24,107-28, 

-02,115-20,119-37,120-24,121-31,122-26,126-05, 

•25,135-17,135-40,137-26,137-46,138-34,139-03, 

-07, 26-27, 26-28, 26-30, 39-21, 39-30, 39-31, 
-48, 65-05, 66-15, 67-31, 68-42, 68-43, 72-17, 
-43,105-46,111-23,111-25,111-35,113-21,113-32, 
-13, 121-14^121-24,121-25, 123-27,125-35,126-03, 
-45,132-03,132-13,132-19,133-28,145-25,145-26, 

-39, 42-40, 43-06, 43-07, 45-22, 45-30, 64-39, 
-26, 75-46, 76-26,103-38,106-31,106-42,112-40, 
-34,121-25,122-17,123-12,126-03,126-42,128-22, 

-18, 72-16, 72-24,103-40,111-24,111-25,113-20, 

-29,127-24,127-26 

-44, 72-15, 72-24, 72-26, 92-40, 92-44, 92-45, 

-36,109-10,109-21,110-10,110-31,111-26,111-36, 

-44,133-14,133-15,133-39,138-12,138-35,148-37, 

-02, 27-03, 27-05, 29-25, 29-2*, 30-38, 30-39, 
-05, 36-07, 37-09, 37-10, 38-12, 38-13, 39-48, 
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F08 


PATCH HISTORY 
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VALUE T NAME 


>EF/REF 


ATTRIBUTES AND REFERENCES CTAPM W77D 
39-49, 41-25, 41-26, 43-12, 43-13, 44-28, 44-29, 45-40, 45-41, 46-45, 46-46, 49-06, 49-08, 






50-10, 50-11, 51-17, 51-18, 52-35, 52-36, 54-17, 54-18, 55-37, 55-38, 56-49, 57-01, 58-12, 






58-13, 60-10, 60-12, 61-22, 61-23, 62-26, 62-27, 63-42, 63-43, 65-12, 65-13, 66-31, 66-32, 
67-45, 67-46, 68-48, 68-49, 71-10, 71-12, 72-32, 72-33, 73-33, 73-34, 74-43, 74-44, 76-34, 
76-35, 78-34, 78-35, 89-20,103-14,143-26,147-22,147-23 


10 R R8 




LIBNUM=3 18-29, 18-34, 19-26, 20-10, 29-14, 29-23, 29-24, 29-25, 30-36, 30-37, 30-38, 
32-02, 32-03, 32-04, 33-24, 33-25, 33-26, 34-34, 34-35, 34-36, 37-07, 37-08, 37-09, 38-10, 
38-11, 38-12, 39-46, 39-47, 39-48, 41-23, 41-24, 41-25, 43-10, 43-11, 43-12, 44-26, 44-27, 
44-28, 45-38, 45-39, 45-40, 46-43, 46-44, 46-45, 50-08, 50-09, 50-10, 51-15, 51-16, 51-17, 
52-33, 52-34, 52-35, 54-15, 54-16, 54-17, 55-35, 55-36, 55-37, 56-47, 56-48, 56-49, 58-10, 






58-11, 58-12, 61-20, 61-21, 61-22, 62-24, 62-25, 62-26, 63-40, 63-41, 63-42, 65-10, 65-11, 






65-12, 66-29, 66-30, 66-31, 67-43, 67-44, 67-45, 68-46, 68-47, 68-48, 72-30, 72-31, 72-32, 
73-31, 73-32, 73-33, 74-41, 74-42, 74-43, 76-32, 76-33, 76-34, 78-32, 78-33, 78-34, 89-21, 
92-06, 92-23, 94-24, 96-04, 96-37, 97-04, 98-06, 99-11,103-13,109-17,110-04,111-08,112-08, 
112-27,112-36,113-15,113-47,115-23,115-36,116-08,116-32,118-19,119-06,120-05,120-20,120-28, 
120-41,121-07,121-44,122-13,122-22,122-30,122-45,123-23,123-38,124-08,126-23,127-02,127-19, 
127-34,128-13,128-30,129-12,129-23,129-37,130-05,131-28,131-41,134-40,135-13,135-20,135-33, 
136-04,137-08,137-33,138-04,138-22,139-16,139-27,139-40,140-14,141-08,141-39,143-28,143-30, 
147-21,147-22 


• 11 R R9 




LIBNUM=3 18-06, 18-11, 18-16, 18-18, 18-36, 19-27, 21-01 


CTVTAB V SXENDIO 




LIBNUM=10 48-04, 53-49,104-18 


14 P SXENDIOX XCS 






YSUB 




LIBNUM=10 


0100007 A SO 




LIBNUM=12 48-17, 58-01,106-29 


CSTSUB V SENDIO 


4-23 




CSYSUB V SENDMIO 


4-22 


31-43, 52-30, 55-32, 71-47, 94-19, 95-05, 95-44, 96-15, 96-26, 98-16,103-45,104-42,105-16, 
105-39,106-22,106-26,107-19,107-35,107-43,107-46,143-12 


0132064 L SENDMIOH 


105-04 


30-29, 37-03, 38-03, 39-29, 39-37, 41-04, 41-09, 41-18, 42-34, 42-45, 43-05, 44-16, 45-26> 
45-33, 46-39, 47-47, 48-01, 48-08, 48-13, 48-16, 48-19, 50-03, 51-10, 52-23, 53-43, 53-46, 
54-04, 54-08, 54-13, 55-22, 55-25, 56-36, 56-39, 57-46, 57-49, 58-03, 59-09, 59-13, 61-15, 
63-30, 65-01, 66-22, 67-34, 67-39, 69-06, 72-10, 72-28, 73-27, 74-30, 74-36, 77-27, 77-39, 
77-44, 78-04, 78 09, 78-15, 79-33, 79-38 


0132042 L SENOSFT 


104-06 


34-31, 35-34 


0131077 L SENO 


62-22 


65-07 


0127777 L SEOU 


25-33 


26-20 


0001622 A SERNO 048533 


157-22 




0001626 A SERNO "049569 


158-02 




0001632 A SERNO "051172 


158-19 


■ .'• 


0001616 A SERNO 062088 


157-12 




0001612 A SERNO 064200 


157-02 




0001636 A SERN0~067787 


159-02 




0127605 L SETALL1 


19-14 


19-07 


0127545 L SETREQ 


18-23 


18-09, 18-14, 18-17 


0117722 L SETTST 


145-01 


145-12 


0131070 L SKIPLED 


62-15 


62-11 


0132056 L SMTM 


104-37 


33-13, 33-19 


0127654 L SNDINIT 


21-35 


21-21 


0000011 A SNOYOENT 


88-05 


119-25,128-01 


0130046 L SPIBT 


27-01 


24-17 
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GOB 


PATCH HISTORY 








9:34:51 2/07/81 **** 


VALUE 


T NAME 




DEF/REF 


ATTRIBUTES AND REFERENCES CTAPM W770 


'TXAPE' 


T SPWORD 










oooooop 

0000216 


A SRFAL 






W=1 S«11 N=0 CL=3 


LIBNUM=12 63-37, 67-40 


A SS RXT 






LIBNUM=7 29-13 




0000213 


A SS SXT 






LIBNUM=7 28-20 


■ 


0010007 


A SST 






LIBNUM=12 31-41 




'STATUS+15' 


T STAEXTR 






M=20 S=0 N=17 CL=2 




0132110 


L STAR 




105-45 


105-46 




0120006 


L STATEST 




148-43 


149-10,150-37,152-33 




0000012 


A STATEWRD 






W=20 S=0 N=12 CL=3 


LIBNUM=12 24-12, 24-23, 76-07, 76-20 


011716* 


L STATFINI 




118-23 


114-02 


- 


0000011 


A STATST 






LIBNUM=12 20-20 




'CRCTBL+4' 


T STATSV 






W=20 S=0 N=4 CL=2 


22-47, 25-37, 26-11, 26-27,103-26 


'PAGSCR+16' 


T STATUS 






H=20 S=0 N=20 CL=2 


92-37, 93-05 


•STATUS+8' 


T STATOYO 






W=20 S=0 N=10 CL=2 


92-37 


'STATUS+9' 


T STAT1Y0 






W=20 S=0 N=11 CL=2 


, 


'STATUS+10' 


T STAT1Y1 






H=20 S=0 N=12 CL=2 




•STATUS+11' 


T STAT2Y0 






W=20 S=0 N=13 CL=2 




•STATUS+12' 


T STAT2Y1 






W=20 S=0 N=14 CL=2 




•STATUS+13' 


T STAT3Y0 






W=20 S=0 N=15 CL=2 




'STATUS+14' 


T STAT3Y1 






W=20 S=0 N=16 CL=2 


_,.. ■■..' - 


TTYTBL 


V STEP 




4-03 


18-11 




0132143 


L STR 




106-35 


106-36 




0000000 


A STUFF 




10-32 


M=1 S=14 N=0 CL=3 


39-21, 39-22 


0132135 


L STUNLD 




106-28 


106-11 


• 


CIYSUB 


V ST2 11 




4-24 


103-42 




0000000 


A SV REG 










0117754 


L SYSCLOSE 




145-39 


24-43,141-45,143-36 


■ 


0117712 


L SYSTSET 




144-01 


92-14 


• 





U T 








. 


. TTYTBL 


X TXAPE 




25-16 


25-16,103-40 




CTVTAB 


V TXIMCHK 






LIBNUM=10 107-31, 10t 


14 


P TXIMCHKX 


XCS 










YSUB 






LIBNUM=10 




CTVTAB 


V TXIMOUT 






LIBNUM=10 63-33, 


76-10, 77-29,107-22,107-49,108-19,108-25,108-31 


14 


P TXIMOUTX XCS 










YSUB 






LIBNUM=10 




0000010 


A TABLTOP 




88-04 


99-08,111-23,125-35,131-22 


0127621 


L TAPEDGN 




1-32 


6-01 




0116774 


L TAPEPACH 




109-09 






TOATA 


V TAPETBL 




5-01 


18-24, 20-46 




. 0000010 


A TAPNO 






H=2 S=0 N=10 CL=3 


LIBNUM=12 24-14,145-25,145-26 


0006415 
0)31752 


A TBS 






LIBNUM=12 64-47, 


66-19, 77-24, 98-14,107-17,143-10 


L TBS1 




101-19 






, CTSD 


V TCBADR 




4-40 


19-05, 21-02, 25-40, 


26-12, 75-48,103-48,145-18,146-10,148-36,150-27,152-27 


0117733 


L TCBFIXUP 




145-16 


145-09 




0131764 


L TCCRC 




101-34 






0131774 


L TCMTC 




101-46 




■ 


.-•' 0131770 


L TCMS 




101-40 




, 


0131740 


L TDCORD 




101-01 


52-13 
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PATCH HISTORY 








9:34:51 2/07/81 **** 


VALUE 


T 


NAME 


DEF/REF 


ATTRIBUTES 


\N0 REFERENCES 


CTAPM W77D 


CTSO 


V 


TOCO 


4-39 








BLMMA 


V 


TEMPINH 


4-16 


95-25 






0000006 


A 


TEST 


27-02 


36-02, 49-05, 


60-06, 71-06, 80-09 




0116774 


I 


TFAPCH2 


1-43 


99-45,109-05 






0002415 


A 


TFF 




LIBNUM=12 


72-15, 95-03 




013175* 


L 


TFF1 


101-22 








0004*15 


A 


TFR 




LIBNUM=12 


72-16 




0131756 


L 


TFR1 


101-25 








0000000 


A 


TIM 


10-08 


W=1 S*12 N=0 


CL=3 69-07, 73-28, 74-37, 77-47, 


78-16, 79-39, 95-45, 96-16,107-36 


CSTSUB 


V 


TIMCHK 


107-30 


76-18, 96-21, 


108-08,108-48 




CSYSUB 


V 


TIMOUT 


63-32 


76-09, 95-09, 


107-21,107-48,108-18,108-24,108-30 




0007215 


A 


TINIT 


9-06 


78-25 






0131776 


L 


TMAINT 


101-49 








0000215 


A 


TMSTOP 


9-04 


50-01 






0000000 


A 


TOR 


10-07 


W=1 S=11 N=0 


Cl=3 96-43 




0600000 


L 


TPATCH 


1-45 








•CRCTBL+O' 


T 


TPNO 




W=20 S=0 N=0 


Cl=2 20-48, 22-49, 24-13, 25-35, 


26-08, 26-26,103-25,144-39 


0000000 


A 


TPR 


10-49 


M=1 S=7 N=0 


CL=3 50-05 




0001616 


A 


TR 011799 


157-1' 








■0001612 


A 


TR~012002 


157-02 








0001632 


A 


TR"012339 


158-19 








0001622 


A 


TR~012958 


157-22 






. 


0001626 


A 


TR 013668 


158-02 








0001137 


A 


TR"11799 


103-02 








000021* 


A 


TR~12002 


21-09 


21-19, 21-45 






0001602 


A 


TR 12339 


99-36 


110-18, 152-45 






0000633 


A 


TR 12958 


78-20 








0001261 


A 


TR"13668 


80-14 


109-09 






0001073 


A 


TR"3E790207 


95-14 


95-24 






0001636 


A 


TR~790117 


24-31 


24-42,159-02 






0000006 


A 


TRACK 




W=2 S=13 N=6 


CL*3 LIBNUM*12 148-37,150-28,152-28 




0003*15 


A 


TRB 




UBNUM=12 


62-21, 64-44, 72-08, 78-07,107-44 




01317*0 


L 


TRB1 


101-04 








01317*2 


L 


TRB2 


101-07 








01317** 


L 


TRB3 


101-10 








01317*6 


I 


TRB4 


101-13 








•CRCTBL+6' 


T 


TRK 




W=2 S=13 N«6 


CL=2 111-36,119-30,121-27,125-44, 


133-32,133-34 


0000000 


A 


TRKH 


10-52 


W=2 S=16 N=0 


CL=3 




0000000 


A 


TRKl 


10-51 


W=2 S=14 N=0 


CL=3 




011701* 


L 


TRORG 


21-09 


21-45, 24-31, 


78-20, 80-14, 95-14, 99-36,103-02,110-18 




0007*15 


A 


TRT 




LIBNUM=12 


67-32 




0131760 


L 


TRT1 


101-28 








0001015 


A 


TSCRC 


9-05 


56-37 






0002015 


A 


TSTAT 




LIBNUM=12 
94-17, 95-41, 


51-07, 55-29, 59-10, 61-13, 69-02, 71-45, 
96-13,107-33 


73-25, 74-34, 77-42, 78-13, 79-36, 


0000000 


A 


TSTATE 




W=1 S=13 N=0 


CL=3 LIBNUM=12 26-09, 26-28,103-26 




'CRCTBU+1' 


T 


TSTNO 




W=20 S=0 N=1 


CL=2 19-26, 22-39, 25-41 




0000015 


A 


TSTOP 




LIBNUM=12 


52-27, 74-27 




0131772 


L 


TSTOPT 


101-43 
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VALUE T NAME 



B09 



DEF/REF 



ATTRIBUTES AND REFERENCES 



9:34:51 2/07/81 **** 
CTAPM W77D 



TTYTBL 

LAYOU.T 

TTYTBL 

TTYTBL 


0000002 
0000004 
0000006 
0000000 
0000002 

0000015 
0000000 

CTSO 
0131750 
0131537 
0003015 
0131766 
0131762 

TTYTBL 
0132122 
0132120 
0000000 

CTVTAB 

14 

CBLM 
0131501 
0132224 
0132227 
0132232 
0131412 
0000000 
0117201 
0120017 
0117200 
0131037 



V TTY IP 

V TTY UFA 

V TTY NG 

V TTY RL 
U TTYAPP 
A TTYO 

TTYO DEC 

TTYO'L X 

TTYO MRD 

TTYOCNT 

TTYTBL 

TUCDEV 

TUR 

TUSTAT 

TUIBG2 

TWRITE 

TWSTP 

TWSTPT 

TWT2 

UCL 

UNCHECK 

UNCHECK1 

UNST 

WXAIT 

WXAITX XCBLM 

WAIT 

WAITIM 

WAIT1 

WAIT1S 

WAIT3S 

WAT 

WENBL 

WRBKSP 

WRITESUB 

WRITE1 

XERRMSGPOX 



0117040 
0117331 
0117352 
CTSD 
0117246 
0117275 
0117064 
0000322 
0117425 
0117457 I 

0117110 L 

0117111 L 



YBS1 

YBS2 

YCHECK 

YEARS 

YRRBKSP 

YRRNOERR 

YSAVE 

YTXF 

Y1BS2 

Y1CHCK 

Y1READ 

Y1READ1 



4-07 19-31 

4-35 103-35 

4-05 18-43, 18-45, 18-47, 18-49 

4-06 19-13, 19-21 

LIBNUM=14 23-05, 23-07, 25-13, 25-14,103-22 

LIBNUM=14 23-05, 25-13,103-20 

LIBNUM=14 103-20,103-22 

LIBNUM=14 23-05, 25-13 



25-15 



9- 
10- 

4- 

101- 

80- 

10V 
101- 

4' 

106- 

106- 

10- 



4- 

78- 

108- 

108- 

108- 

76- 

10- 

119- 

150- 

119- 

59- 

111- 

126- 
127- 
4- 
121- 
122- 
112- 

129- 
132 
115 
115 



13 50-04, 51-11, 51-12, 61-16 

05 W=1 S=7 N=0 CL=3 59-14, 61-16 

22-46, 25-34, 26-07, 26-25, 75-45, 76-25,145-27 



•42 
■16 
•01 

■37 
•31 
•04 
■12 
■09 
•31 



24-24, 89-01 
LIBNUM=12 



55-19 



55-23 

18-16, 23-13, 24-01, 26-15 

44-21 :' 

41-14 
W=1 S=13 N=0 CL=3 40-02, 41-05, 42-46, 43-06, 44-17, 45-35 

LIBNUM=10 20-23, 21-25, 95-28,107-27,108-05,108-45 

LIBNUM=10 

96-12,141-25,145-05,148-48 

78-1 7 

39-34, 43-01, 45-28, 48-10, 52-20, 54-10, 55-28, 56-42, 69-04, 73-24, 76-15, 78-06, 

22-02, 65-03, 66-24, 74-32 

67-36, 72-12, 77-41, 79-35, 98-18,143-14 

76-22 
W=1 S=6 N=0 CL=3 51-11, 51-12, 61-16 



31 

10 

16 

22 

28 

13 

04 

40 120-24 

01 



78-12 



120-10,135-03,138-15 

17 1 55-33' 1 56-45, 58-05, 59-15, 61-18, 62-14, 63-38, 64-42, 66-16, 67-41, 68-44, 69-08, 72-03, 

73-29, 74-38 
42 112-31 
10 126-37 
•13 126-31 
45 151-18 
34 122-26 
39 122-03 
•45 112-16 

LIBNUM=7 
■31 128-42 
■01 132-20 
■01 113-43 
•06 116-12 



28-20, 29-13 
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C09 



PATCH HISTORY 
VALUE T NAME 



DEF/REF 



ATTRIBUTES AND REFERENCES 



9:34:51 2/07/81 **** 
CTAPM W77D 



0117405 
0117140 
0025712 
0025750 
0026750 
1 



T1READ2 

Y1SAVE 

ZBRX 

ZERX 

ZHINTX 

3ACC 



128-38 129-27 
116-16 115-10 
LIBNUN- 

LIBNUM= 
LIBNUM= 
1-09 



28-26 
29-05 
28-36, 29-07 
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D09 



9:34:51 



2/07/81 



PATCH 


HISTORY 


COUNT 


T 


NAME 




5 

56 






AI 
AN 




1 
46 






A1S 
B 



DEF/REF REFERENCES 



ClAPM 



W77D 



54 BC 

24 BL 

100 BNC 



5 BNCL 
7 BPAX 
233 BSA 




23 BSAI 
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9:34:51 2/07/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPM 



PR-1C958-50 



ISSUE 06 
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E09 



PATCH HISTORr 
COUNT T NAME 



• 2 BTSA 

3 BTSAC 
11 BTSA6N 



9:34:51 



19 BTSAN 
26 BX 

14 CI 



3 





CIRM 


5 





COM 


9 





CR 


11 





CRM 


1 





EXR 


1 





FLZ 


2 





GA 


1 





GN 


13 





HA 


6 





HN 


3 





ICF 


a 





IRM 



22 L 

3 LA 

28 LAL 



2 LAX 
130 LI 



16 LL 
73 LN 



DEF/REF 



REFERENCES 



CTAPM 



2/07/81 **** 
W77D 



104-18,107-22,107-27,107-31,107-49,108-05,108-09,108-19,108-25,108-31,108-45,108-49 
LIBNUM=1 105-19,105-27 

LIBNUM=1 106-02 J 06-0^106-48, 107-03, 107-39,108-12, 145-11, 145-33,146-18,149-07,149-09, 



LIBNUM*1 

48-25,104 
LIBNUM=1 
105-49,106 
143-15,151 
LIBNUM=1 
130-11,132 
LIBNUM=1 
LIBNUM=1 
LIBNUM=1 
LIBNUM=1 
LIBNUM=1 
LIBNUM=1 
LIBNUM=1 
LIBNUM=1 
LIBNUM=1 
151-16,152 
LIBNUM=1 
LIBNUM=1 
LIBNUM=1 
45-40, 46' 
66-31, 67' 
LIBNUM=1 

26-27, 28 
LIBNUM=1 
LIBNUM=1 

75-45, 75 
150-27,151 
LIBNUM=1 
LIBNUM=1 
31-41, 37 
42-32, 42 
48-11, 48 
54-11, 55 
64-47, 66 
76-01, 76 
94-17, 95 
103-40,103 
111-08,112 
146-09,146 
LIBNUM=1 
116-40,121 
LIBNUM=1 
32-02, 33 



18- 

02,104- 
20- 

36,106- 

25 

23- 

13,134- 
19- 
33- 
29- 
41- 
72- 
33- 
142- 
65- 
91- 



43, 18-45, 18-47, 18-49, 19-13, 19-21, 19-31, 20-30, 23-21, 24-04, 25-20, 

21,104-25,104-33,104-45,104-47,104-49 

24' 28-40' 45-30, 52-31, 66-25, 74-39, 77-33, 92-47, 98-19,104-31,105-46, 

42'112-31, 115-20,120-24,122-26,126-37,128-47,134-17,135-17,137-46,139-03, 



-25 

64- 

18- 

29- 

45, 50- 

45, 68- 

:>0- 

27, 28 

52 

19- 

48, 76 

17,151 

75 

21 

•01, 38 

■39, 42 

•14, 48 

•19, 55 

•19, 67 

03, 77 

•03, 95 

■43,105 

•40,115 

•15 

18 

•12,123 

18 

■24, 34 



31, 37-04, 38-04, 45-35, 46-40, 48-20, 58-04, 64-44,118-25,121-14,128-01, 

11 

06, 59- 

17, 35- 

20, 39- 

05, 42- 

24 

21 

05,143- 

04 

04,105-36,106-10,106-19,107-16,108-41,144-37,146-07,147-19,148-34,150-25, 



-14, 76-27 

-32, 39-41, 41-19, 62-18 

-30, 39-38, 41-10, 52-25,104-28,106-39,123-29,127-26 

-46^ 43-06, 44-17, 50-05, 51-12, 61-17, 64-41, 66-15,113-07,116-27 



-32 



46,105- 
33, 18- 
25, 30- 
■10, 51- 
48, 72- 
•48, 21- 
33, 29- 
■21, 52- 
•05, 20- 
■25, 92- 
■18,152- 
■46,145- 
■41, 23- 
■01, 38- 
■40, 42- 
■17, 50- 
■29, 56- 
■32, 67- 
■23, 77- 
•41, 96- 
■37,105- 
■22,119- 



24,105' 

35, 18- 
38, 32 
17, 52 
32, 73 
19, 22' 

02, 76 
24,151 
46, 20 

36, 92 
27 

28 

03, 23 
15, 39 
41, 42 
01, 50 
34, 56 

37, 69 
24, 77 
13, 96 
41,106 
06,124 



■25,107-01,143 

•37 

04, 33-26, 34 

■35, 54-17, 55 

•33, 74-43, 76 

■39, 22-47, 22 

■20,103-25,111 

■24 

•47, 21-02, 22 

•37, 93-04, 93 



■26,143-30 



36, 37- 

37, 56- 
34, 78- 
49, 23- 
26,119- 

46, 25- 
05,103- 



•09, 38 
•49, 58 
■34,147 
•29, 24 
•29,125 

■34, 25 
■48,105 



■12, 39-48, 41-25, 43-12, 44-28, 

•12, 61-22, 62-26, 63-42, 65-12, 

•22 

■13, 25-35, 25-41, 26-08, 26-26, 

■34,133-14,145-25 

•40, 26-07, 26-12, 26-25, 52-13, 
•23,145-18,145-27,146-10,148-36, 



■05, 23- 
•21, 39 
■43, 43 
■04, 51 
•37, 57 
•02, 71- 
■42, 78 
•24, 98 
•20,106' 
-08,131 



■07, 23- 
■22, 39- 
■02, 44- 
■07, 51- 
•44, 57- 
•45, 72- 
■02, 78- 
■14, 99- 
■24,106- 
■41,137- 



10, 23- 
27, 39- 
14, 45- 

11, 52- 
47, 58- 
08, 72- 
07, 78- 
01, 99- 
29,106- 
08,140- 



16, 24 
35, 40 
24, 46 
27, 53 
01, 59 
14, 72 
13, 78 
07, 99 
31,107 
14,141 



-44, 25- 
-02, 41- 
-37, 47- 
-41, 53- 
-07, 59- 
-15, 72- 
-25, 79- 
-44,103- 
-17,107- 
-08,141- 



02, 26- 
02, 41- 
45, 47- 
44, 53- 
10, 61- 
16, 73- 
36, 89- 
20,103- 
33,107- 
14,143- 



09, 29 
07, 41 
48, 48 
47, 54 
13, 61 
25, 74 
20, 92 
22,103 
41,107 
10,144 



■19, 30-27, 
■16, 42-27, 
•02, 48-06, 
•02, 54-06, 
•16, 62-21, 
■27, 74-34, 
■06, 92-38, 
■33,103-38, 
■44,110-25, 
•41,145-22, 



24, 55-23, 64-39, 68-40, 72-13, 99-24,110-10,111-24,113-02,113-20,116-21, 

28,127-24,144-39 

08, 18-13, 18-28, 19-15, 20-13, 24-11, 27-03, 28-22, 28-38, 29-23, 30-36, 

28, 34-34, 36-05, 37-07, 38-10, 39-46, 41-23, 43-10, 44-26, 45-22, 45-31, 
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COUNT T NAME 



20 LR 



9:34:51 



DEF/REF 



REFERENCES 



CTAPM 



2/07/81 **** 
W77D 



10 
2 
7 
8 
1 

38 



3 

5 
8 
1 
1 
3 
12 



LX 

HI 

HIS 

NI 

OR 

RLN 



RRN 

SBN 

SBS 

SI 

SIO 

SMIO 

SN 



6 SR 

17 ST 

2 STA 

2 STAL 

40 STL 



5 

11 

24 

16 

3 

1 

20 

3 

1 

12 



STM 
STX 

TBN 

TBS 

TIO 

TMIO 

TZ 

ZBN 
ZBR 
ZBS 



19 ZR 



4S-38, 46- 
62-24, 63- 
76-32, 78- 

126-05,128- 

LIBNUM=1 

100-03,105- 

LIBNUM=1 

LIBNUM=1 

LIBNUM=1 

LIBNUM=1 

LIBNUH=1 

UBNUM=1 
44-27, 45- 
64-40, 65- 

147-21 

LIBNUM=1 

LIBNUM=1 

LIBNUM=1 

LIBNUM=1 

LIBNUM=1 

LIBNUM=1 

LIBNUM=1 

139-27 

LIBNUM=1 

LIBNUM=1 
76-02, 76- 

LIBNUM=1 

LIBNUM=1 

LIBNUH=1 
43-13, 44- 
61-23, 62- 
76-35, 78- 

LIBNUM=1 

LIBNUM=1 

LIBNUH=1 

69-07, 7V 
LIBNUM=1 
103-26,113- 
LIBNUM=1 
LIBNUM=1 
LIBNUM=1 

76-21,106 
UBNUM=1 
LIBNUM=1 
LIBNUM=1 
145-30 
LIBNUM=1 

28-48, 33 



43, 49- 

40, 65- 

32, 98- 

34,131- 

65- 

40,107- 

21- 

28- 

28- 

68- 

133- 

24- 

39, 46- 

11, 66- 



06, 50 
10, 66 
10,104 
45,133 
05, 72 
24,107 
01, 25 
24, 29 
16, 28 
41, 68 
39 

15, 29 
44, 50 
30, 67 



14, 52-33, 54-15, 55-35, 56-47, 58-10, 60-10, 61-20, 

43, 68-46, 71-10, 72-17, 72-30, 73-31, 74-41, 76-06, 

33,111-23,111-33,115-02,119-25,119-37,121-31,125-35, 

40,137-26,138-34,143-08,151-19 

16, 95-11, 96-18, 99-47, 99-48, 99-49,100-01,100-02, 

06,108-42,108-46,133-28 

27,121-25,123-27,126-03,127-25,128-22,132-03 

12, 33-10, 35-36, 35-41 
41,103-14,133-34,145-26,152-46 



67-31,103- 
20-26, 26- 
22-18, 26- 

133-29 

105-44 
21-42, 28 
18-25, 25 

18-26, 18 
19-26, 19 

07, 99-08, 99 

103-36,151 

19-25,103 

27-05, 29 

29, 45-41, 46 

19, 62-27, 63 

35,147-23 

76-04,145 
23-01, 25 



•08, 51-15, 52- 

■17, 66-29, 67- 

■15,105-43,106- 

•46,134-25,135- 

•26, 76-12, 76- 

■28,108-02,108- 

■36, 76-26,119- 

■01 

■19, 29-09, 29- 

■42, 79-39, 99- 

■24, 30-37, 32-03, 33-25, 34-35, 37-08, 38-11, 39-47, 41-24, 43-11, 
■09, 51-16, 52-34, 54-16, 55-36, 56-48, 58-11, 61-21, 62-25, 63-41, 
■44' 68-47, 72-31, 73-32, 74-42, 76-33, 78-33,104-30,133-32,143-28, 

•13,133-30 

•30, 39-39, 43-07, 44-18 

•13, 48-23, 62-16, 72-05,103-24,109-43,145-19 

■37,106-34 
■45,112-27,116-08,116-22,120-20,122-22,128-30,129-23,135-13,138-12, 

-29, 68-43, 72-18,109-10,110-31 

-27, 19-29, 22-43, 23-41, 23-42, 24-12, 24-14, 24-23, 25-37, 26-11, 

-42,146-16,152-47 

■23 

•26, 30-39, 32-05, 33-27, 34-37, 36-07, 37-10, 38-13, 39-49, 41-26, 
-46, 49-08, 50-11, 51-18, 52-36, 54-18, 55-38, 57-01, 58-13, 60-12, 
-43, 65-13, 66-26, 66-32, 67-46, 68-49, 71-12, 72-33, 73-34, 74-44, 

-23,148-37,150-28,152-28 

-39, 26-10, 92-44, 92-45,111-25,113-21, 113-32, 116-41, 117-05,121-13, 



■48, 



18-11, 13-18, 20-11, 26-28, 31-44, 39-43, 41-20, 42-35, 44-23, 62-10, 
74-37, 77-45, 77-47, 78-16, 94-20, 95-45, 96-16, 96-41, 96-43,107-36 
22-26, 23-13, 23-43, 24-01, 25-28, 26-15, 44-12, 56-44, 63-37, 67-40, 

,131-22,131-32 

,105-47,106-37 

18-20, 18-32, 18-34, 18-36, 21-20, 22-40, 25-42, 29-14, 30-30, 33-15, 
1120-34,122-1 7,123-12,126-42,128-24,132-05 
, 41-11, 42-48 

22-38, 23-44, 26-14, 62-17, 72-06, 75-47,103-49,143-21,145-20,145-21, 

18-05, 18-31, 19-28, 20-10, 20-25, 22-42, 23-40, 24-22, 25-38, 26-17, 28-47, 
08, 89-21, 92-40,105-22,106-45,113-22,116-42 



18-06 
73-28 
21-26 

•42,128-17 
28-41 
28-43 
18-16 

■43,109-21 
39-31 
28-25 
21-36 



COMMON TAPE MAINTENANCE 

9:34:51 2/07/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET 



CTAPM 



PR-1C958-50 
ISSUE 06 PAGE 



184 



• • 



A01 



PATCH HISTORY 
COUNT FLAG 



PAGE-LINE OF FLAG 



9:34:51 2/07/81 **** 
CTAPM W77D 



2 I 
2 F 

14 H 

18 FLAG(S) FOUND IN THIS ASSEMBLY 



155-12,155-30 
24-17, 24-18 
95-09, 96-12, 96-21,141-18,141-25,141-26,145-05,145-06,146-14,148-40,148-48 



COMMON TAPE MAINTENANCE PR-1C958-50 

9:34:51 2/07/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPM ISSUE 06 PAGE 185 



